ASSE^StE revision 249 OP AOC PROGRAM COLOSSUS BY NASA 2021111-041 


20’35 OCT. 28,1988 KOOLADE .069 PACE 413 


8YSTB4 test STANDARD LEAD INS 


USEIUS PAGE NO. 1 


0001 

IffiF 

15 WST 242 

BS.lOTl 

EBANKs XSM 

0002 



33.2000 

bank 33 

0003 

REP 

1 

04,2000 

SETUX! E/PBOQ 

0004 



04,2S5T 

bank 

0005 

REP 

1 


CaWT* tS/POT 


SPECIAL PROGRAMS TO EASE THE PANGS OP ERASABLE ^ffi^^ORY PROGRAMS. 
E/BkCALL FOR DOING BANKCALLS FROM AND RETURNING TO ERASABLE. 


THIS fKXrriNE IS CALLABLE FRfW ERASABLE OR FIXED. LIKE BANKCALL, HOhBvER. SWITCHING BETWEEN S3 AND S 4 
IS NOT POSSIBLE. a ^ 


THE CALLING SEOfiTOE IS’ 


TC BANKCALL 
CADR E/BkCALL 

CADR ROUTINE WHEiffl YOU WANT TO GO IN FIXED. 

RETUIW HEIffi FRCM DISPLAY TERMINATE, BAD STALL OR TC O 
RBTUTOI HEBE FRCM DISPLAY PROCffiD OR GOOD RETURN FRCM ^LL 
RETUTOI here FRCM DISPLAY ENTER OR RECYCSLE. 


THIS RCHTINE REOIIRES TWO EHASABLBS (EBuPr, +1) IN UNSWiTtHED WHICH ARE mSHAHBD BY INTERRUPTS AND 
OIHEH EMEMORY PROGRAMS. 


A ♦ L are preserved through bankcall and B/BkCAIL. 


3 LAST 384 
1 

2 LAST 413 


REF 12 LAST 368 


5 LAST 36T 

3 LAST 413 

4 LAST 413 


2 LAST 185 


REF 5 LAST 413 
REF 6 LAST 413 
REF T LAST 413 


04,2557 

52 134 

0 

E/ftcCALL DxCH 

BuFz 

04,2560 

52 365 

0 

DXCH 

EBuFa 

04,2561 

24 364 

0 

INCR 

E8UP2 

04,2562 

3 0008 

1 

CA 

bbank 

04,2563 

7 4747 

0 

MASK 

LOWIO 

04,2564 

26 365 

0 

ADS 

EBUFz +1 

04,^65 

50 384 

0 

NDX 

eblb^ 

04,2566 

2«7777 

0 

CA 

0 -1 

04.S6T 

0 4561 

1 

TC 

SWCALL 

04,2570 

0 2574 

0 

TC 

+4 ■ 

04,2571 

0 257 3 

1 

TC 

+2 

04,2572 

24 364 

0 

INCr 

EKUPZ 

04,2573 

24 364 

0 

INCR 

EBUFz 

04,2574 

52 365 

0 

B/SWITCH DxCH 

EBlff'z 

04,2575 

52 006 

0 

dtcb 



SAVE A,L AND (S!T DP RETURN. 
SAVE DP RETURN. 

RBTUroi +1 BECAUSE DOUBLE CADR. 


c®T Current ebank . ( sbank scmeday) 

FORM BBCCN. (WAS FRANK) 


GET CADR OF ROUTINE. 

GO TO ROITINB, setting O TO SWHBIURN 
AND RESTORING A + L. 

TX O, V34. OR BAD STAU, RETURN. 
PROCraD OR GOOD STAU, RETURN. 
enter or RECYCLE RETURN. 


I 




SYSTEM test STANDiAKD LEAD INS 

USBIUS PAGE NO. 2 ^ S4 

b/call f* calling a fixed INIEIIPKETIVE SIPRCXITINE PRIM ebasabu? and RETEHNINO to ERASABI^. 

THE CALLING SEQLENCE IS... 


ref 3 LAST 
REF 45 last 
REP 48 LAST 
REP 4T last 
REP 48 . LAST 
REP 8 LAST 
REP 13 LAST 


9 LAST 414 


REP 10 LAST 414 
REP 14 LAST 414 




RIB 

B/CALL 



CADR 

RCUTINE 

04,2576 

22 164 1 E/CALL 

LXCM 

LOC 

04,2577 

50 001 0 

INDEX 

L 

04,2600 

3 0001 0 

CA 

L 

04,2801 

24 001 0 

INCH 

L 

04,2602 

24 001 0 

INCH 

L 

04,2603 

52 365 0 

DXCM 

EfiuP2 

04,2604 

0 6006 1 

TC 

INTPRBT 

04,2605 

77624 1 

CALL 


04,2806 

00364 0 


EBUF2 

04,2607 

77776 1 

EXIT 

04,2610 

22 385 1 

lxch 

EHUF2 +i 

04,2611 

1 6010 1 

TCP 

INTPRET +2 


THE interpretive SUBROUTINE YOU WANT. 
RETUroiS HEBE IN INTERPRETIVE. 


I 


ADRES -1 OP CADR. 
CADH IN A. 


return ADRES IN L. 
STORE CADH AND RETURN. 


indirectly Execute rcutinb. it must 

LEAVE VIA RVO OR EQUIVAIJONT. 

PIC5C UP return. 

■ SET LOC AND RETURB TO CALLER 





■ 
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SYSTEM TEST STANDARD LEAD INS USER«S PAGE NO. 3 Es S4 

B/JOBwAK FOR waking UP ERASABLE Ma«MY JOBS. 

THIS ROLiriNE MUST BE CALLED IN INTERRUPT OB WITH INTERRUPTS INHIBIIPD. 

THE CALLING SEQUENCE IS* 

IMLINT 


CA WAKEADR 
TC IRflcCALL 
CADB E/JCBwAk 


address op SLEEPING JOB 

RETUreiS HEBE 

IF YOU DID AN INHINT. 


OOTl 





33,2000 



bank 

33 


0072 

REP 

2 

LAST 

413 

04,2000 



SETLOC E/PROG 


0073 





04,2612 



bank 



0074 

REP 

2 

LAST 

413 TO 415’ 

27 27* 


CCIJNT* $$/P07 


0075 

REP 

3 

LAST 

377 

04,2612 

0 5074 1 

E/JOBwAk TC 

JCBwAkE 

Arrive iwth adhes in a. 

0076 

REP 

17 

LAST 

343 

04,2613 

4 4700 0 


cs 

BITll 


0077 

REP 

4 

LAST 

370 

04,2814 

50 064 0 


NDX 

LOCCTR 


0078 

REP 

4 

LAST 

414 

04,2615 

26 164 0 


ADS 

LOC 

knock PIXHT MH40BY BIT 

0079 

REP 

1 



04,2616 

0 0072 1 


TC 

HJPTREG3 

return 

ROOBO 

THESE 

PROGRAMS Are 

PRCVIDED TO ALLOW OVERLAY OP BANKS 30 THRU 33 OP 

THE 205 VERSICNS <y SYSTEM 

B0082 

prelaunch ALIGN. THE INTENT 

IS TO ALXXW THE STG AND HVBRID LABS TO 

HUN AIL THE TESTS WITH COLO 

0084 





33,2000 



BANK 

33 


0085 

REF 

1 



33,2000 



SBTLOC TESTLEAD 


0086 





33,2000 



bank 



0087 

REF 

1 






COJNT 

33/CCMST 


0088 

REP 

5 

LAST 

241 

E5,1425 



EBANK= 

OPLACE 


0089 

REP 

1 



33,2000 

0 3425 1 

CCMPVER 

1C 

.GCCMPVER 

MUST BE 33,2000. 

0090 

REF 

1 



33,2001 

0 3132 1 

GTSCPSSl 

IC 

GTSCPSS 

MUST be at 33,2001 

0091 

REP 

1 



33,2002 

0 5243 1 

REDO 

1C 

NEWMODEX 

DISPLAY MM 07. 

0092 





33,2003 

00007 0 



07 

FAU, INTO IMUTEST 



Assemble revision 249 op aoc program colossus bv rasa 2021111-041 

L IMU CALIBRATION AND ALIQ<&®(T 

ROOlO fWB. IMU PEREOaMANCS TESTS 2 
ROOll DATE- MARCH 20,1967 

B0012 By- SYSTEM TEST OROOP 884-8900 EXT. 1274 

B0013 MODNO.- ZERO 

R0014 functional DESCRIPTION 

R0015 POSITIONING RCUTINES FOR THE IMU PERP0K4ANCE TESTS AS VJELL AS SO® CP 
R0016 THE TESTS THEMSELVES. FOl A DESCRIPTION OF THESE SUBROUTINES AND THE 
ROOIT operating PROCEDURES (TYPICALLY) SEE STO KHNO 685 .THEORETICAL RBP.E -1973 


20’35 OCT. 28,1968 KOOLADE .069 PAGE 416 
USERsS PAGE NO. 1 Bo S3 


0018 

0019 

0020 


REP 


33,2004 

33,2000 


BAf« 33 
SETUK IMUCAL 


0021 

REP 

1 



0022 

REF 

87 

LAST 

411 

0023 

REP 

1 



0024 

REP 

1 



00241 

REP 

1 



00242 

REP 

1 



00243 

REP 

1 



002s 

REP 

1 



0026 

REP 

1 



00261 

REP 

1 



00262 

REP 

7 

LAST 

301 

0027 

REP 

15 

LAST 

414 

002701 





0028 

REF 

1 



0029 





0030 





0031 

REP 

1 



0032 

REF 

1 



0033 





0034 

REP 

1 



0035 





0036 

REF 

59 

lAST 

391 

0037 

REP 

2 

LAST 

233 

0038 

REF 

1 



0039 

REP 

68 

lAST 

416 

0040 

REP 

1 



0041 

REP 

1 



0042 

REP 

2 

LAST 

416 

0043 

REP 

1 



0044 

REP 

1 



0045 

REP 

1 




33,2004 



BANK 


E5,1423 



EBANK: 

= POSITCN 

33,2004 

3 4714 1 

IMUTEST 

CA 

zero 

33,2005 

S5«452 1 


TS 

DRIFTT 

33,2006 

55«643 0 


T3 

GEOCCMPi 

33,2007 

3 2443 0 


CAP 

TESTTI)® 

33,2010 

55«412 0 


TS 

LBLGTHOr 

33,2011 

0 2302 1 


TC 

COAALIGN 

33,2012 

3 4734 0 


CAP 

ISECx 

33,2013 

5501844 1 


TS 

ISECXTI 

33,2014 

3 2441 1 


CA 

CC14400 

33,2015 

55o<074 1 


TS 

1/PIPADT 

33,2016 

0 8008 1 

(XESS 

TC 

INTPRET 

33,2017 

77624 1 


CALL 


33,2020 

10617 0 



iatazchk 

33,2021 

57548 1 


COS 

DCCMP 

33,2022 

77752 1 


SLl 


33,2023 

18447 1 


STOM, 

HANOI 

33,2024 

02403 1 



latitude 

33,2025 

72558 1 


SIN 

SLl 

33,2026 

02445 0 


STORE 

WANOO 

33,2027 

77776 1 


Exit 


33,2030 

0 4555 0 

GEOIMUTT TC 

BANKCAli, 

33,2031 

16516 1 


CADR 

IMUZERO 

33,2032 

0 2316 1 


TC 

IMUSTUX3 

33,2033 

3 4714 1 

IMUBAC^c 

CA 

zero 

33,2034 

55ot421 0 


TS 

ndxctr 

33,2035 

55o(450 0 


TS 

TCWaNDX 

33,2038 

55o<451 1 


TS 

TORQNDX 4-1 

33,2037 

3 4375 1 

NBPOSPI, 

CA 

DEC17 

33,2040 

55«655 1 


TS 

zercndxi 

33,2041 

3 2445 0 


CA 

xnbadr 


take care OF DRIFT FLAG 


CAIAAATE -COS latitude and sin latitidb 




GYROCOMPASS COES IN HERE 
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D*J calibration and ALItSWENT 


•04« 

IBF 

1 



33,2042 

0 2356 

0 

TC 

2EB0INQ 

004T 

REP 

1 



33,2043 

3 4675 

1 

CA 

HALF 

004S 

I®F 

2 

LAST 

282 

33,2044 

55«7r3 

1 

TS 

XNB 

0049 

RBF 

16 

LAST 

416 

33,2045 

0 6006 

1 

TC 

INTPRET 

0050 





33,2046 

73545 

1 

DLOAD 

SIN 

0051 

HEP 

1 



33,2047 

02401 

0 


AzIMiriH 

0052 

RBF 

2 

lAST 

282 

33,2050 

02724 

1 

STORE 

YNB +2 

0053 

REP 

2 

LAST 

282 

33,2051 

16734 

0 

STCDL 

ZNB +4 

0054 

RBF 

2 

LAST 

417 

33,2052 

02401 

0 


AZIMIIH 

0055 





33,2053 

77746 

1 

COS 


0050 

REP 

3 

LAST 

417 

33,2054 

02726 

0 

STORE 

YNB +4 

005T 





33,2055 

77676 

0 

DCCMP 


0058 

REP 

3 

LAST 

417 

33,2056 

02732 

0 

STORE 

Bffl +2 

00581 





33,2057 

77776 

1 

EXIT 


00582 

SEP 

8 

LAST 

261 

33,2060 

0 5253 

0 

TC 

CHEQ04M 

00583 





33,2061 

00003 

1 

MM 

03 

00584 





33,2062 

1 2064 

0 

TCP 

+2 

00585 

REP 

1 



33,2063 

1 3432 

0 

TCP 

SETNBPOS +1 

00586 

REP 

17 

LAST 

417 

33,2064 

0 6006 

1 

TC 

INTPRET 

00S8T 





33,2065 

77624 

1 

CALL 


0059 

RBP 

1 



33,2066 

47244 

0 


CALCGA 

.0000 





33,2087 

77776 

1 

Exit 


0061 

REP 

60 

LAST 

416 

33,2070 

0 4555 

0 

TC 

bankcall 

0002 

RBP 

2 

LAST 

235 

33,2071 

16602 

1 

CADR 

IMUCCMRS 

0003 

REP 

35 

LAST 

377 

33,2072 

3 4675 

1 

CAP 

BIT14 

0064 

REP 

1 



33,2073 

7 0077 

0 

mask 

EIACMRD3 

0005 





33,2074 

0 0006 

1 

EXTEND 


0066 





33,2075 

1 2077 

1 

B2P 

+2 

0067 

REP 

2 

LAST 

416 

33,2076 

25«421 

1 

inch 

NDXCTR 

0008 

RBP 

20 

LAST 

384 

33,2077 

0 5447 

0 

TC 

DOflNFLAO 

0069 

REP 

1 



33,2100 

00056 

1 

ADRSS 

glckfail 

0070 

REP 

2 

LAST 

416 

33,2101 

0 2316 

1 

TC 

IMJSTLLG 

0071 

RBP 

3 

LAST 

417 

33,2102 

11«421 

0 

CCS 

NDXCTR 

0072 

REP 

1 



33,2103 

0 2131 

0 

TC 

PIPACHk 

0074 

HEP 

61 

LAST 

417 

33,2104 

0 4555 

0 

TC 

BANKCALL 

0075 

HEP 

2 

LAST 

237 

33,2105 

17012 

1 

CADR 

IMUFINB 

0070 

RBP 

3 

LAST 

417 

33,2106 

0 2316 

1 

TC 

IMISTLLG 

0077 





33,2107 

0 0006 

1 

EXTEND 


00771 

REP 

1 



33,2110 

3 1657 

1 

DCA 

PERFDIAY 

00772 

REP 

1 



33,2111 

0 5231 

1 

TC 

LCNGCALL 

00773 

REF 

2 

LAST 

416 

E5,1423 



raANK= 

POSITCN 

00774 

REP 

1 



33,2112 

02116 

0 

2CADR 

GCESTIMS 

00774 

REP 

1 



33,2113 

66065 

1 



00775 

RBP 

1 



33,2114 

3 2121 

1 

CA 

ESTICADR 

00776 

RBP 

3 

LAST 

376 

33,2115 

0 5070 

0 

TC 

JCBSIJIEP 

00777 

REP 

2 

LAST 

417 

33,2116 

3 2121 

1 

GOESTIMS CA 

ESTICADR 

00778 

B®' 

4 

LAST 

415 

33,2117 

0 5074 

1 

TC 

jobwake 

00779 

REP 

18 

lAST 

411 

33,2120 

0 5213 

1 

TC 

TASKOVER 

007791 

BH' 

1 



33,2121 

66453 

0 

ESTICADR CADR 

ESTIMS 


userois page no. 2 


SEE IF IN OPTICAL VERIFICATION 
NO 
YES 


IF BIT14 set, OIMBAL LOCK 


+1 IF IN OIMBAL LOCK.OIHBIWISB 0 
beset OIMBAL LOC^ FTAO 
bit 14 FIAO 3 


IF CNE 00 AND DO A PIPA TEST ONLY 
ALI®( AND MEASURE VERTICAL PIPA RATE 
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0078 

HEP 

89 

LAST 

416 

33,2122 

3 4714 

1 

TQsaue 

CA 

ZBRO 

0079 

lEP 

7 

LAST 

278 

33,2123 

55«G50 

1 


TS 

DSPTEMb 

0080 

REP 

1 



33,2124 

3 1514 

0 


CA 

DHIPTI 

0081 

REP 

8 

LAST 

416 

33,2125 

55«051 

0 


TS 

DSPTPM2 «-l 

0082 

REP- 

3 

LAST 

417 

33,2126 

51«423 

0 


INDEX 

POSITON 

0083 

I®P 

2 

LAST 

96 

33,2127 

55-430 

0 


TS 

80mW» -1 

0084 

REF 

1 



33,2130 

0 2427 

1 


TC 

aior 

0085 

REP 

4 

LAST 

417 

33,2131 

51-421 

1 

PIPACrtc 

INDEX 

NDXCIS 

0086 





33,2132 

0 2133 

1 


TC 


0087 

REP 

1 



33,2133 

0 2417 

1 


TC 

earihr* 

0030 

REP 

1 



33,2134 

3 4374 

0 


CA 

DECst 

0091 

REP 

2 

LAST 

416 

33,2135 

55-412 

0 


TS 

LENGTHOT 

0092 

REF 

55 

LAST 

409 

33,2138 

3 4712 

1 


CA 

CNE 

0093 

REF 

1 



33,2137 

55-547 

1 


TS 

HBSULTCt 

0094 

IffiP 

90 

LAST 

418 

33,2140 

3 4714 

1 


CA 

2ERO 

0095 

REP 

1 



33,2141 

51-422 

1 


INDEX 

PIP INDEX 

0096 

REF 

2 

LAST 

266 

33,2142 

54 037 

1 


TS 

PIPAX 

0097 

REP 

1 



33,2143 

55-502 

0 


TS 

DATA PL 

00971 

REP 

2 

LAST 

418 

33,2144 

55-506 

1 


TS 

DAWPL ^4 

0098 

REJP 

1 



33,2145 

0 2321 

0 


TC 

CHECKG 

0099 





33,2146 

0 0004 

0 


INHI.NT 


OlOO 

REP 

25 

LAST 

407 

33,2147 

3 4711 

1 


CAP 

TWO 

0101 

REP 

1 



33,2150 

0 5130 

0 


TC 

TWIDDLE 

0102 

REP 

16 

LAST 

413 

ES,1871 




EBANK= 

XSM 

0103 

REP 

1 



33,2151 

02153 

1 


ACRES 

PIPATASK 

0105 

REP 

53 

lAST 

409 

33,2152 

0 5112 

0 


TC 

ENDOPJOB 

0106 





33,2153 

0 0006 

1 

piPAWSK Extend 


0107 

REP 

3 

LAST 

418 

33,2154 

27-412 

0 


DIM 

LENGTHOT 

01071 

REP 

4 

LAST 

418 

33,2155 

3 1412 

1 


CA 

L&JGTHOT 

0108 





33,2156 

0 0008 

1 


EXTCND 


0109 

REP 

1 



33,2157 

6 2163 

1 


BZME 

SWHTPIP 

0110 

REP 

28 

LAST 

331 

33,2160 

3 4701 

0 


CAP 

BITIO 

0111 

REP 

2 

LAST 

418 

33,2161 

0 5130 

0 


TC 

TWIDDLE 

0112 

REP 

17 

LAST 

418 

B5,1671 




EBANK= 

XSN 

0113 

REF 

2 

lAST 

418 

33,2162 

02153 

1 


ADI®S 

PIPATASK 

0114 

REP 

2 

LAST 

241 

33,2163 

3 4675 

1 

SWRTPIP 

CAP 

PRIO20 

0115 

REF 

15 

LAST 

410 

33,2164 

0 5042 

1 


IC 

FINDVAC 

0116 

REP 

18 

LAST 

418 

E5,1671 




EBA,NK= 

XSM 

0117 

REP 

1 



33,2165 

02170 

0 


ZCADR 

PIPJOBB 

0117 

REP 

1 



33,2166 

66065 

1 




0118 

REF 

19 

LAST 

417 

33,2167 

0 5213 

1 


TC 

TASKCX/BR 

0119 

REF 

5 

LAST 

418 

33,2170 

51-421 

1 

PIPJQBB 

INDEX 

NDxCTR 

0120 





33,2171 

0 2172 

1 


TC 

♦1 

0121 

REP 

2 

LAST 

418 

33,2172 

0 2417 

1 


TC 

earthr* 

0122 

REP 

5 

LAST 

418 

33,2173 

3 1412 

1 


CA 

IBNGIHOT 

0123 





33,2174 

0 0006 

1 


EXTEND 


0124 





33,2175 

6 2177 

1 


BXMP 

♦2 

0125 

REF 

54 

LAST 

418 

33,2176 

0 5112 

0 


TC 

ENDOFJCB 

0126 

REP 

7 

[AST 

338 

33,2177 

3 4715 

0 


CA 

FIVE 




20*35 OCT. 29.1988 KOOLAI« .069 PAGE 418 
USBR>S PAGE NO. 3 Es S3 


PIPA TEST 


PIP PULSE catching BCUTINE 
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L IMG calibration AND ALia«4aiT 


USBRaS PAGE NO. 4 Es S3 


0127 

REF 

2 

LAST 

418 

33,2200 

55«547 

1 


TS 

RESULTCT 

0128 

IffiF 

2 

LAST 

418 

33,2201 

0 2321 

0 


tc 


0134 





33,2202 

0 0006 

1 


Ema© 

0135 

REP 

3 

LAST 

418 

33,2203 

4 1503 

1 


DCS 

DATAPL 

0136 

REP 

4 

LAST 

419 

33,2204 

21«507 

0 


DAS 

DAWPL +4 

0137 

REP 

18 

LAST 

417 

33,2205 

0 6006 

1 


TC 

WTPRET 

0138 





33,2206 

45345 

1 


DUMD 

DSU 

0139 

REP 

5 

LAST 

419 

33.2207 

02511 

0 



DATAPL +6 

0140 

REP 

6 

LAST 

419 

33,2210 

02505 

0 



DATAPL *2 

0141 





33,2211 

45044 

0 


.8PL 

CALL 

0142 

REP 

1 



33,2212 

66214 

0 



AINGOIN 

0143 

REP 

1 



33,2213 

66276 

1 



OVEHFPIX 

0144 





33,2214 

56325 

0 

AINGOIN 

KIOL 

DDV 

0145 

REP 

7 

LAST 

419 

33,2215 

02507 

1 



DATAPL +4 

0146 





33,2216 

57212 

1 


SL4 

DMPH 

0147 

REP 

1 



33,2217 

27111 

0 



Decs 85 

0148 





33,2220 

77834 

0 


RIB 


0149 

REP 

1 



33,2221 

45541 

0 



9GNAGREE 

0150 

REP 

9 

LAST 

418 

33,2222 

01051 

1 


STORE 

DSPTEMz 

0151 





33,2223 

77776 

1 


EXIT 


0152 

REP 

6 

LAST 

418 

33,2224 

11«421 

0 


CCS 

NDXCTR 

0153 

REP 

2 

LAST 

416 

33,2225 

0 2302 

1 


TC 

COAALIGN 

0154 

REP 

2 

LAST 

418 

33,2226 

0 2427 

1 


IC 

SHOW 

0155 

REP 

1 



33,2227 

3 2447 

1 

veridbpt ca 

3990EEC 

0156 

REP 

6 

LAST 

418 

33,2230 

55«412 

0 


TS 

LB4GlHOr 

0157 

REP 

4 

LAST 

418 

33,2231 

51«423 

0 


INDEX 

POSITCN 

0158 

REF 

3 

UST 

418 

33,2232 

4 1427 

0 


CS 

SCUTHDR -2 

0159 

REP 

2 

LAST 

416 

33,2233 

55«4S2 

1 


TS 

DHIPIT 

0160 

REF 

19 

LAST 

418 

33,2234 

3 1675 

1 


CA 

XSM +4 

0161 





33,2235 

0 0006 

1 


Exiaro 


0162 

REP 

1 



33,2236 

1 2244 

0 


BZP 

PCN2 

0163 

REP 

20 

LAST 

334 

33,2237 

4 4706 

0 

PCN4 

CS 

bits 

0164 

REP 

1 



33,2240 

27«651 

0 


ADS 

ERCCMPI +2 

0165 

REP 

21 

LAST 

419 

33,2241 

3 4708 

1 


CA 

bits 

0166 

REP 

2 

LAST 

419 

33,2242 

27«647 

1 


ADS 

EHCCMPi 

0167 

REP 

1 



33,2243 

1 2250 

0 


TCP 

PCNG 

0168 

REP 

22 

LAST 

419 

33,2244 

4 4706 

0 

PCNz 

Cs 

bits 

0169 

REF 

3 

LAST 

419 

33,2245 

2T«651 

0 


ADS 

EHCCMPi +2 

0170 

REP 

23 

LAST 

419 

33,2246 

3 4706 

1 


CA 

bits 

0171 

REP 

4 

LAST 

419 

33,2247 

27«653 

1 


ADS 

ERCCMPi +4 

0172 

REP 

3 

LAST 

418 

33,2250 

0 2417 

1 

PONG 

TC 

EARTHR4 

0173 

REP 

91 

lAST 

418 

33,2251 

3 4714 

1 


CA 

ZERO 

0174 

REP 

1 



33,2252 

55<«404 

1 


TS 

ERVECTOR 

0175 

REP 

2 

LAST 

419 

33,2253 

55«405 

0 


TS 

ERVECIOR +1 

0178 

REP 

10 

LAST 

344 

33,2254 

3 4672 

0 

ajESSl 

CAP 

POSAAX 

0177 

REF 

3 

LAST 

418 

33,2255 

55«450 

0 


TS 

TOBQNDX 

0178 

REF 

4 

lAST 

419 

33,2258 

55«451 

1 


TS 

TORQNDX +1 

0179 

REF 

8 

LAST 

411 

33,2257 

3 0032 

0 


CA 

CDlK 

0180 

REP 

2 

lAST 

96 

33,2260 

55«413 

i 


TS 

LOSVEC 


DGC585 HAS BEEN REDBPINE» FOR lEM 


WkE PUnPORM CUT OF GIMBAL LOOc 
ABOUT 1 HOUR vertical DRIFT TEST 


0 IP POSN 4 


CPPSET PIATFOBM 


AUXIW CNLy sailH GYRO earth rate ccmpens 



ASSBBLE mvisiw 249 op AOC PBOGIWM colossus by NASA 2021111-041 20-35 OCr. 28,1968 KOOLADE .069 PAGE 420 

L IK, CALIBeATICN AND ALI®^SNT ^ ^ 

•181 REP 2 LAST 417 33,2281 0 2453 1 TC ESTIMS 

•184 lEP 1 33,2262 3 1512 0 VALMIS CA DRIPTO 

•185 RES' 10 LAST 419 33,2263 55«Q51 0 T3 DSPTE42 +1 

•188 REP 92 LAST 419 33,2264 3 4714 1 CA 2010 

•187 REP 11 LAST 420 33,2285 55«050 1 TS DSP7H42 

•188 REP 3 last '419 33,2266 0 2427 1 TC giOCT 

•1894 REP 21 LAST 417 33,2267 0 5447 0 ENDTESTl TC DOiSNFlAO IK, NOT IN USE 

•190 REP 3 LAST 253 33,2270 00007 0 ADHBS IMUffi BIT 8 FIAO 0 

•191 REP 93 LAST 420 33,2271 4 4714 0 Cs 2ERO 

•192 REP 2 LAST 415 33,2272 0 5246 1 TC NES!>«I«X +3 

•193 REP 62 last 417 33,2273 0 4555 0 TC BANkCAIX 

•194 REP 1 33,2274 16083 0 CAOR «<HELEAS 

•195 REP 18 LAST 391 33,2275 0 5423 1 TC BOEXT 




ASSBBLB RB\riSia< 249 OP AOC PHOQaAM COLOSSUS BY NASA 2021111-041 


20’35 OCT. 28,1960 KOOLADB .069 PACE 421 


iMu calibkatiqn and ALICKMHNT 



0196 





33,2276 

43215 

0 

CVEHPPIX dad 

DAD 

0197 

REP 

1 



33,2277 

15340 

1 



DPPOS4AX 

0198 

REP 

1 



33,2300 

27117 

0 



CHEDPP 

0199 





33,2301 

77616 

0 


RYO 


0200 





33,2302 

0 0006 

1 

CCAALIQI EXTB® 


0201 

REP 

6 

LAST 

415 

33,2303 

23«425 

0 


OtfH 

OPIACE 

0202 

REP 

94 

LAST 

420 

33,2304 

3 4714 

1 


CA 

2EHO 

0203 

IffiP 

10 

LAST 

266 

33,2305 

55«155 

0 


TS 

thetad 

0204 

REP 

11 

LAST 

421 

33,2306 

55«156 

0 


TS 

TKBTAD +1 

0205 

REP 

12 

LAST 

421 

33,2307 

55«157 

1 


TS 

THETAD +2 

0206 

REP 

63 

lAST 

420 

33,2310 

0 4555 

0 


TC 

BANXCALL 

0207 

REP 

3 

LAST 

417 

33,2311 

16602 

1 


CADR 

IMUCCARS 

0206 

REP 

64 

LAST 

421 

33,2312 

0 4555 

0 


TC 

bankcall 

0209 

REP 

6 

LAST 

298 

33,2313 

17516 

0 


CADR 

MJSTALL 

0210 

REP 

1 



33,2314 

0 3103 

0 


TC 

sa4ERH2 

0211 

REP 

7 

LAST 

421 

33,2315 

0 1425 

0 


TC 

a>LACE 

0212 





33,2316 

0 0006 

1 

IMUSILLO EXTEND 


0213 

HEP 

8 

LAST 

421 

33,2317 

23«425 

0 


QXCH 

CfflACE 

0214 

REP 

3 

LAST 

419 

33,2320 

0 2312 

0 


TC 

CQAALI®! +10 

0215 





33,2321 

0 0006 

1 

CHEQca 

EXTEtro 


0216 

REP 

9 

LAST 

421 

33,2322 

23«425 

0 


QXCH 

OWACE 

0217 





33,2323 

0 2331 

1 


TC 

+6 

0218 





33,2324 

0 0003 

1 

CHEQgGi 

RELINT 


0219 

REP 

2 

LAST 

187 

33,2325 

3 0067 

0 


CA 

NE»JCB 

0220 





33,2326 

0 0006 

1 


EXTEND 


O2201 





33,2327 

6 2335 

0 


BzMP 

+6 

02202 

REP 

1 



33,2330 

0 5057 

0 


TC 

CHANGi 

02203 





33,2331 

0 0004 

0 


INHINT 


02204 

REP 

2 

LAST 

418 

33,2332 

51«422 

1 


INDEX 

PIPINDEX 

02205 

REP 

3 

LAST 

416 

33,2333 

4 0037 

1 


CS 

PIPAX 

02206 

HEP 

2 

LAST 

98 

33,2334 

55«655 

1 


TS 

ZBRCNDX 

0224 





33,2335 

0 0004 

0 


INHINT 


0225 

REP 

3 

LAST 

421 

33,2338 

51-X422 

1 


INDEX 

PIPINDEX 

0226 

REP 

4 

LAST 

421 

33,2337 

3 0037 

0 


CA 

PIPAX 

0227 

REP 

3 

LAST 

421 

33,2340 

6 1655 

0 


AD 

2ERCNDX 

0228 





33,2341 

0 0006 

1 


EXTEND 


0229 

REP 

I 



33,2342 

1 2324 

1 


BzP 

CHECkGi 

0230 

REP 

4 

LAST 

421 

33,2343 

51»422 

1 


INDEX 

PIPINDEX 

0231 

REP 

5 

LAST 

421 

33,2344 

3 0037 

0 


CA 

PIPAX 

0232 

REP 

3 

LAST 

419 

33,2345 

51«547 

0 


INDEX 

resultct 

0233 

REP 

8 

LAST 

419 

33,2346 

55«502 

0 


TS 

DATAPL 

0234 

REP 

1 



33,2347 

0 4526 

1 


TC 

PINETIME 

0235 

REP 

4 

LAST 

421 

33,2350 

51«547 

0 


INDEX 

IfflSULTCT 

0236 

REP 

9 

LAST 

421 

33,2351 

55«503 

1 


TS 

DATAPL +1 


USBBoS PAGE NO. 


CCMRSE ALI®f SUBKOUTINE 


K S3 


PIP PULSE catQiino routine 



AssaSJLB REVISION 249 OP AGO PROOBAM COUJSSUS BY NASA 2021111-041 


20’35 OCT. 28,1988 KOOLADB .069 PAOB 422 


L IMU calibration AND ALIGfM®tT 

023T RHP 5 tAST 421 33,2352 

0238 REP 10 LAST 421 33,2353 

®239 33,2354 

0240 REP 10 LAST 421 33,2355 

0241 REP 49 LAST 414 33,2358 

®242 33 2357 

0243 REP 2 LAST 416 33,2360 

0244 REP 95 LAST 421 33,2361 

0245 REP 50 LAST 422 33,2362 

®248 33,2363 

024T REP 51 LAST 422 33,2364 

0248 REP 3 LAST 422 33,2385 

0249 REP 1 33,2366 

0250 • REP 146 lAST 412 33,2367 


51«547 

0 


nsDSx 

EBSULTCT 

23*504 

1 


tJfCH 

DA1APL *2 

0 0003 

1 


RELIMT 


0 1425 

0 

ENDCKlO 

TC 

OPIACE 

54 001 

1 

zeroing 

TS 

L 

1 2361 

0 


TCP 

*2 

55*655 

1 

ZBROINOi 

TS 

zbrcndxi 

3 4714 

1 


CAP 

ZERO 

50 001 

0 


INDSX 

L ■ 

54 000 

0 


TS 

0 

24 001 

0 


INCH 

L 

11*655 

1 


CCS 

ZERCNDxi 

1 2360 

1 


TCP 

ZBROIirai 

0 0002 

0 


TC 

0 


USBRacS PAGE NO. T Es S3 





ASS&BLB B2VISI0N 249 OF AQC PROGaAM COLOSSUS BY fJASA 2021111-041 



Ml calibration and 

ALICK^ENT 





•251 

BBP 

1 



32,2000 




SBTLOC LHUCAL3 

0252 





32,2000 




bank 


•254 





32,2000 

6 5 345 

0 

ERIHRYSE DLQAD 

PTOL 

0255 

REF 

1 



32,2001 

27112 

0 



SQI^HOS 

•250 

REF 

2 

lAST 

416 

32,2002 

02403 

1 



LATITICE 

02ST 





32,2003 

57546 

1 


CK8 

DCCKP 

0258 





32,2004 

73525 

1 


PDK, 

SIN 

0250 

■S' 

3 

lAST 

423 

32,2005 

02403 

1 



LATITICE 

0260 





32,2006 

74266 

0 


VDEF 

VXSC 

0261 

RHP 

1 



32,2007 

26450 

1 



OEO/M3 

0262 

REF 

3 

LAST 

419 

32,2010 

02405 

1 


STORE 

EBVECTOa 

0263 





32,2011 

77634 

0 


RTB 


0264 

REF 

1 



32,2012 

45505 

0 



LQADTIME 

0265 

REF 

1 



32,2013 

26443 

0 


STCVL 

TMARK 

0266 

REF 

2 

LAST 

423 

32,2014 

27112 

0 



SCHZEHOS 

626T 

HHF 

5 

LAST 

419 

32,2015 

02650 

0 


STORE 

EHCCKPi 

0266 





32,2016 

77616 

0 


RYO 


0269 

REF 

2 

LAST 

416 

33,2000 




SETLOC 

I 

r 

0270 





33,2370 




bank 


0272 





33,2370 

47020 

0 

EARIHR 

IW 

RTE 

0273 

REF 

1 



33,2371 

00051 

0 



S2 

0274 

REF 

2 

LAST 

423 

33,2372 

45505 

0 



LOIDTIf® 

0275 

REF 

1 



33,2373 

02441 

1 


STORE 

TIMPTI.'« 

0276 





33,2374 

51025 

1 


DSU 

bpl 

0277 

REF 

2 

LAST 

423 

33,2375 

02443 

0 



TMAHL 

0276 

REF 

1 



33,2376 

66401 

1 



ERTHR 

0279 





33,2377 

77624 

1 


CAU, 


0280 

ISP 

2 

LAST 

419 

33,2400 

66276 

1 



(VERFFIX 

0281 





33,2401 

74261 

1 

erthr 

SL 

VXSC 

0282 





33,2402 

20212 

1 



90 

0283 

RHP 

4 

LAST 

423 

33,2403 

02405 

1 



ervector 

0284 





33, 2404 

53321 

1 


MKV 

VAD 

0285 

RH* 

20 

LAST 

419 

33,2405 

02872 

0 



XS>I 

0286 

REF 

6 

LAST 

423 

33,2406 

02650 

0 



EHCCMPl 

0287 

RH' 

T 

LAST 

423 

33,2407 

16650 

0 


STCDL 

ERCCMPl 

0288 

REF 

2 

LAST 

423 

33,2410 

02441 

1 



TEMPTIMB 

0289 

REF 

3 

LAST 

423 

33,2411 

02443 

0 


STORE 

TMARK 

0290 





33,2412 

47170 

1 


AXT,1 

rib 

0291 

RHP 

8 

LAST 

423 

33,2413 

02647 

0 


ECADR 

EHCCMPl 

0292 

REF 

1 



33,2414 

45650 

0 



PUI,SE1,HU 

0293 





33,2415 

77650 

1 


GOTO 


0294 

REF 

2 

LAST 

423 

33,2416 

00051 

0 



S2 

0295 





33,2417 

0 0006 

1 

EARTHR* 

Extend 


02951 

RHP 

3 

LAST 

32 

33,2420 

23«426 

0 


QX(3I 

OPIACES 

02952 

iffiF 

19 

lAST 

419 

33,2421 

0 6006 

1 


ic 

I.NTPRET 

02953 





33,2422 

77624 

1 


CAIL, 


02954 

REF 

1 



33,2423 

66370 

0 



EARTHR 

02955 





33,2424 

77776 

1 

PRQirr 

EXIT 


02956 

813' 

4 

lAST 

417 

33,2425 

0 2316 

1 


TC 

I«JSTIJX5 

02957 

REF 

4 

lAST 

423 

33,2426 

0 1426 

0 


TC 

WlACES 


20 ’35 OCT. 28,1968 KOOLADB .089 PACE 423 
USBIUS PAGE NO. 8 S3 


PD24 = (SIN 


-COS OXCMEG/MS) 


CALCUIATES and CCWPENS4TES EARTH RATE 
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IMU CALIBRATICN AND ALIG6®®IT 




BEP 11 LAST 422 


REP 12 LAST 420 


REP 65 LAST 421 
REP 3 last 391 
REP 1 


REP 12 LAST 42A 


REF 2 LAST 423 


REP 5 LAST 359 
HEP 9 LAST 277 
REP 1 


REP 15 LAST 368 


REF 21 LAST 423 


03165 HEP 


0317 

0318 

0319 

0320 HEP 


0321 BEP 52 

0322 

0323 REP 2 


0324 

0325 

0326 

0327 REP 


03J^ 

OJ V 

03 !' .-V 

03.) ■ 

0332 BSP 


REP 3 
7’7P 53 


0333 

0334 REF 


0335 REP 147 




20’35 OCT. 28,1968 KOOLADE .069 PAGE 424 
USBIUS PACE NO. 9 ^ S3 



33,2427 

0 0006 1 

aioflr 

EXTEND 

422 

33,2430 

23«425 0 


CKCM 

ffiNACB 

419 

33,2431 

3 1423 0 

SIOWl 

CA 

P03ITCN 

420 

33,2432 

55«052 0 


TS 

DS?Ta42 *2 


33,2433 

3 2442 1 


CA 

VEB3N98 

421 

33,2434 

0 4555 0 


TC 

EAlClCALL 

391 

33,2435 

20624 0 


CADR 

GCFIASH 


33,2436 

0 2267 0 


TC 

eaiiESTi 

424 

33,2437 

0 1425 0 


TC 

OPLACB 


33i2440 

1 2431 1 


TCP 

aiori 


33,2441 

14400 0 

OC14400 

OCT 

14400 

423 

33,2447 


399ODEC 

= 

CI®G/MS 


33,2442 

01542 0 

VH08N98 

VN 

0398 


33,2443 

01602 1 

TESTTIiME OCT 

01602 

359 

4375 


DECit 


NDi 

277 

33,2444 

02757 0 

OGCPL 

ECADR 

OGC 


4734 


ISECx 

— 

ISBC 

36S 

4374 


DECst 


VOi 

417 

33,2445 

01713 0 

xnbadr 

GENADR XNB 

423 

33,2446 

01671 0 

XS4ADH 

GENADR XSI 


33,2447 

07623 1 

CMSO/MS 

2DEC 

.24339048 


33,2450 

28552 1 




424 

33,2451 

0 4555 0 

PllOuT 

TC 

BANKCALL 

207 

33,2452 

70127 1 


CADR 

.HATHXJQB 





COUNT 

02/CCMST 


4526 



BIXTk 

2 


4528 

0 0004 0 

FINETDE 

INHINT 



4527 

0 0006 1 


EXTEND 



4530 

00 004 0 


READ 

LOSCAIAR 

422 

4531 

54 001 1 


TS 

L 


4532 

0 0006 1 


EXTEND 


424 

4533 

06 004 0 


RXOR 

LOSCAIAR 


4534 

0 0006 1 


EXTES® 



4535 

1 4541 1 


BZF 

♦4 


4538 

0 0006 1 


EXTEND 


424 

4537 

00 004 0 


READ 

LOSCAIAR 

424 

4540 

54 001 1 


TS 

L 

419 

4541 

4 4672 1 

+4 

CS 

POSNBX 

424 

4542 

6 0001 0 


AD 

L 


4543 

0 0006 1 


EXTEND 


421 

4544 

1 4527 1 


BzF 

FiNEri>e ti 


4545 

0 0008 1 


Extend 



4546 

00 003 1 


READ 

HISCAIAR 

422 

4547 

0 0002 0 


TC 

0 


RETURN TO Pn 


RETUms WITH INTEHRlffT INHIBITED 






10336 

B033T 

R0338 

R0339 

>0340 

>0341 

>0342 

>0343 

>0344 

R034S 

>0346 

>034T 

>034T1 

>0348 

>0349 

>0350 

>0351 

>0352 

>0353 

>0354 

>0355 

>0356 

>035T 


A3SE^«LE HBVISICN 249 0? AGC PROCSlAM COLOSSUS BY HAS* 2021111-041 
IMU CALIBRATICN and ALICKK2HT 

PKOGaAM HAMS-OPTIKLM PI52LAIKCH ALIGS«>2a^T CALIBRATION 

DAlE- NW/a-IEBR 2 1986 

BY- CECSJOS sCtMIDT IL T-146 EXT, 126 

MOD NO 3 

FUNCTIONAL IfflsCRIPTION 


20’35 OCT. 28,1968 KOOLADB .089 PAGE 425 
USEBotS PAGE NO. 10 E5 S3 


THIS SBCtICN consists OF PBH^UNCH ALIGNMENT AND OYRO DRIFT TESTS 
integrated TOGETKESI TO SAVE WORDS. CCMPASS IS CCIOT.ETSLY E3START 
PROOFED EXCEPT FOR TK3 FIRST 30 STOCNDS OR SO. PSnFOE-lANCE TESTS 'OP 
THE IRIGS IS restart PROOTaJ ENOUGH TO GIVE 75 PERCENT CCNPIDESCE THAT 
IP A restart occurs the data will still be good. GOOD PRACTICE TO RECYCL 
WIEN A restart OCCURS UNLESS IT HAPPENS NEAR THE EfD OP A TEST-TH0I WAIT 
FOR the data TO PIASH. 

A RESTART IN GYR0CCFn>AS3 DURING GYRO TORQUING CAUfflS PULSES TO BE LOST 
THE prelaunch ALIGN'THT TECHNIQUE IS BASICALLY THE SA^‘E AS IN BLOCK 1 
EXCEPT THAT IT HAS BEEN SIMPLIFIED IN THE SSTSE THAT S«LL ANGLE APPROX. 
HAVE BEEN USED. THE DRIFT TESTS USE A UNIQUE IMPLE-THTATICN O’ THE 
OPTIMUM statistical FILTER. FOR A DESCRIPTICN SEE £- 1973. BOIH OP THESE 
RtXfTINES Ua! standard SYSTEM TEST LEADIN PROCEDURES. THE INITIALIZATICN 
PRCXEDURE FCSl THE DRIFT TESTS IS IN THE JDC S. THE INITIALIZATICN METHOD 
FOR GYROCOMPASS IS AN ERAS LOAD THEN A MISSKN PHASE CALL. 

THE compass aligns TO Z DttTN.X DOJNRANGB, HAS THE CAPABILITY 
CHANGE Azimuth while running , is ccmpensated for 
COMPONENT errors, IS CAPABLE OF OPTICAL VERIFICATICNC Cs^ CNLY) 


>0358 CtWPASS ERASABLE LOAD REQUIRED 

>0359 1-LAuNCHAz -DP AzIi^nH IN REV FHCM NORTH OP XSM lESIHED 
>0360 2- latitude -DP-OP HUNCH PAD 

>0361 3- AzIMum-DP-CP ZNB OP VEHICLE 

>03611 4- IMU CCMPENSATICN PAPA^ETBRS 

>0362 5-AZ and ELEVATICN OF TARGETS 1,2 

>0383 TO PERPOfW AS PART OP CQ-5PAS3 


(NCM=.2) 


4WOPTICHAL*m 


>0364 

>0365 


1- OPTICAL VERIPICATICN- V 65 B 

2 - AzIMUIH CHANGB-V T8 E 


>0368 SUBROUTINES CALLED 


B038T 

>0368 


HIRING OPTICAL VERIFICATION CCSM CNI,Y) ESSENTIALLY ALL OF INFLKHT ALIGN 
IS CALLED IN ONE WAY OR ANOIHER. SEE THE I.ISTING. 


>0309 N0re4AL EXIT 

>0370 drift TESTS- LENGTHOT GOES TO ZERO-BETimN TO IMU PERP TEST2 CCNraa, 
>0371 GYROCXMPASS-iHANY, SEE THE LISTING 
>0372 AIARMS 


>0373 1600 


CVERPLOW IN DRIFT TEST 



1 
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ASSMLB revision 249 OP ACX3 PROffiMM COLOSSUS BY NASA 2021111-041 
L IMU calibration AND ALI®)!®<T USER.S PAGE NO. 11 

R03T4 1601 bad IMU TCKOUB ABORT 

R03T5 1602 BAD OPTICS DURINO VERIPICATICN-RETUIW TO COMPASS CSM CNLT 

R03T6 OUTPUT 

R0377 DRIET TESTS- FLASHINO DISPLAYS OP RSSUl,TS-CCNTROLLED IN IMU PERF TESTS 2 
B0378 COMPASS-PROGRAM NKIffl LIGHTS TELL YOU mT RIASB OF PROGRAM YOU ARE IN 
• R03T9 01 initializing THE PLATFORM POSITION AND ERASABLE 

R0380 02 GYROCOMPASS INO 

R0381 03 DOING OPTICAL VERIFICATION (CSM) 

R0382 

R0383 

R0384 DffiRIS 

R0395 all centrals, all OF EBANK XSM 



E5 S3 
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R0386 

MOST OP THE ROUTINES CCM-XK TO ALIGNM0IT AND CALIBHATICN APPEAR 


R038T 

ON THE NEXT FEW PAGES. 






03875 

REP 

1 






COUNT 

33/P02 


0388 

REF 

22 

LAST 

424 

E5,1671 



EBANKr 

xai 


0389 





33,2453 



bank 

33 


0390 

REF 

3 

LAST 

423 

33,2000 



setux: 

MUCAL 


0391 





33,2453 



bank 



0392 

REF 

2 

LAST 

254 

33,2453 

0 5 261 1 

B3TIMS 

IC 

aPHSCHNG 

CCNES HERE FROM IMU2 

0393 





33, 2454 

00075 0 


OCT 

00075 


03931 





33,2455 

00004 0 


OCT 

00004 

mroi ORP ffiwxip 4 IF CN 

0394 





33,2456 

0 0004 0 

RSTQTSl 

INHINT 


CCMES HERE fflASEi RESTART 

0395 

REF 

T 

lAST 

409 

33,2457 

3 0025 0 


CA 

TIMEl 


0396 

REF 

1 



33,2460 

55«645 0 


TS 

CTSOriLTl 


0397 

REF 

96 

LAST 

422 

33,2461 

3 4714 1 


CAP 

ZERO 

ZERO THE PIPAS 

0398 

REF 

6 

LAST 

421 

33,2462 

54 037 1 


TS 

PIPAx 


0399 

REF 

1 



33,2463 

54 040 1 


TS 

PIPAY 


0400 

REF 

1 



33,2464 

54 041 0 


TS 

PIPAZ 


0402 





33,2465 

0 0003 1 


RELINT 


0403 

REF 

1 



33,2466 

3 3130 0 


CA 

77C®C!yl, 

zero all necessary locations 

0404 

REF 

4 

LAST 

422 

33,2467 

S5«655 1 


TS 

ZERCNDki 


0405 

REF 

1 



33,2470 

3 3131 1 


CA 

AIJOOCZ 


0406 

ref 

2 

LAST 

417 

33,2471 

0 235 6 0 


TC 

zeroing 


0407 

REF 

20 

LAST 

423 

33,2472 

0 6006 1 


TC 

INTPRET 


04084 





33,2473 

77735 0 


SLCAD 



04085 

REF 

3 

I A ST 

423 

33,2474 

27112 0 



StJIZEROS 


04086 

REP 

9 

LAST 

301 

33,2475 

25477 1 


STOVL 

GCCMPS* -1 


0409 

REP 

1 



33,2476 

27123 1 



INTVAL +2 

IvOAD SCME INITIAL DRIFT GAINS 

0410 

REP' 

1 



33,2477 

26455 1 


STCVL 

ALXIS 


0411 

REF 

4 

LAST 

427 

33,2500 

27112 0 



schzeros 


0412 

REP 

17 

LAST 

301 

33,2501 

01472 1 


STORE 

GCCMP 


0413 

REP 

6 

LAST 

294 

33,2502 

01163 1 


STORE 

DBLVX 

GCQ4PZER SUBRCUTINE NO LONGER NEEDED 

0414 





33,2503 

77778 1 


Exit 



0415 

REF 

2 

LAST 

416 

33,2504 

11«643 0 


CCS 

GEOCCMPi 

NON ZERO IP CCMPASS. 

0416 





33,2505 

0 2507 1 


ic 

+2 


0417 

REP 

1 



33,2508 

0 2523 1 


TC 

SI EBP IB +1 


0422 

REF 

21 

LAST 

427 

•33,2507 

0 6006 1 


TC 

INTPRET 


04221 





3312510 

77624 1 


CAU, 



04222 

REF 

1 



33,2511 

64000 0 



BRIHRVSB 


04223 





33,2512 

77776 1 


exit 



0423 

REF 

7 

LAST 

419 

33,2513 

3 1412 1 


CA 

lENGlHOT 

TIMES FIVE IS THE NIM OP SEC ERECTING 

0424 

REP 

1 



33,2514 

55«646 0 


TS 

ERBCTINE 


0425 

REF 

3 

LAST 

420 

33,2515 

0 5243 1 


TC 

NEWMODEX 


0426 





33,2516 

00002 0 


M4 

02 


0427 

REF 

67 

tAST 

424 

33,2517 

0 4555 0 


TC 

BANkCAU, 

SET in> PIPA FAIL TO CAUSE ISS AIARM 



1 
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R0430 

CCMBS HEBE AT THE END OP BVERV ITEHATICN THRQUSI KlIFT TEST OR Ca4PASS 


B0431 

SET Iff WAITLIST SECTION 





0432 

HEP 8 

LAST 

427 

33,2522 

55«412 0 

g PEP IE T3 

IPNGIHOr 

TEST NOT CVBR-DECRE^ENT LENOIHOT 

0433 

REP 7 

lAST 

385 

33,2523 

0 5301 0 

TC 

PHASCHNG 

CHANGE PHASE 

0434 




33,2524 

00135 0 

OCT 

00135 


0435 

REP 5 

LAST 

419 

33,2525 

11«450 0 

CCS 

TffiCJffilX 

Are we DOING VERIDRIFT 

0436 

IffiP 4 

LAST 

419 

33,2526 

0 2417 1 

TC 

EAHTHIWt 

TRIE T0B3UE SOUTH OyRO 

043T 

REP 1 



33,2527 

0 3401 1 

WTLISTNT TC 

CHxCCbED 

SEE IP CCMPASS O/ER 

043T1 

REP 1 



33,2530 

0 2532 1 

TC 

SETGALST 


043T2 

REP 55 

LAST 

418 

33,2531 

0 5112 0 

TC 

aaxFJCB 


043T3 




33,25 32 

0 0006 1 

SETOWLST EjaFND 


043T4 

IffiP 218 

LAST 

398 

33,2533 

22 154 1 

(KOI 

MPAC 

CALLED EVERY WAITLIST OR AZIMUTH CHANGE 

0438 




33,2534 

0 0004 0 

INHINT 


0439 

REP 8 

LAST 

427 

33,2535 

4 0025 1 

CS 

TMEl 


0440 

REP 2 

LAST 

427 

33,2536 

6 1645 1 

AD 

GTSWTLTI 


0441 




33,2537 

0 0006 1 

ExTH© 



0442 




.33,2540 

6 2542 0 


*2 


0443 

REP 2 

LAST 

409 

33,2541 

6 4674 0 

AD 

NEtMAx 

10 MS error ok 

0444 

REP 2 

LAST 

410 

33,254 2 

6 1644 0 

AD 

1®CXT1 

1 SEC FOR calibration, .5 SEC IN COMPASS 

0445 




33,2543 

0 0006 1 

EXTB© 



0446 

REP 1 



33,2544 

6 2550 0 

B2MF 

RiafTGTS 


0447 

REP 3 

LAST 

418 

33,2545 

0 5130 0 

WTGrS4PL TC 

TWIDDLE 


0448 

REP 1 



^,1540 


fflANK= 

ALTIM 


0449 

REP 1 



33,2546 

02575 1 

ADRES 

ALLOOP 


0451 

HEP 219 

LAST 

429 

33,2547 

0 0154 1 

TC 

MPAC 


0452 

REP 7 

LAST 

355 

33,2550 

3 4710 0 

RIGMTGTS CAP 

PCUR 

SET UP NEXT WAITIHST-AILO# SCME TIME 

0453 

REP 1 



33,2551 

0 2545 1 

TC 

WTOTSMPL 

©ID OP WAITLIST SECTICN 

BO 454 

STORE AND U»D DATA 

secticns for restart PROOPING 



0455 




33,255 2 

00031 0 

aSDEQt, DEC 

25 


0458 

REP 1 



33,2553 

3 255 2 1 

STORBDtA CAP 

25DECMI, 


0457 

REP 220 

LAST 

429 

33,2554 

54 154 0 

TS 

MPAC 


0458 

REP 221 

LAST 

429 

33,2555 

50 154 1 

INDEX 

MPAC 


0459 

REP 2 

LAST 

98 

33,2558 

31*460 1 

CAE 

THETAXI 


0460 

REP 222 

LAST 

429 

33,2557 

50 154 1 

INDEX 

MPAC 


0461 

REP 1 



33,2560 

55*577 1 

TS 

RESWHPT 


0462 

REP 223 

LAST 

429 

33,2561 

10 154 0 

CCS 

MPAC 


0463 

REP 1 



33,2562 

1 2554 0 

TCP 

STORHW +1 


0464 

REP 148 

LAST 

424 

33,2563 

0 0002 0 

TC 

O 


0465 

REP 2 

LAST 

429 

33,2564 

3 2552 1 

LQADSIDT CAP 

25DEOS, 


0466 

HEP 224 

lAST 

429 

33,2565 

54 154 0 

TS 

MPAC 


0467 

REF 225 

LAST 

429 

33,2566 

50 154 1 

INDEX 

MPAC 


0468 

REP 2 

LAST 

429 

33,2567 

3 1577 0 

CA 

RESIARPT 
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0469 

REP 

226 

LAST 

429 

33,2570 

50 154 

1 


INDEX 

KPAC 

0470 

REP 

3 

last 

429 

33,2571 

55«460 

0 


T3 

WBIAXI 

0471 

HEP 

227 

LAST 

430 

33,2572 

10 154 

0 


CCS 

I^AC 

0472 

REP 

1 



33,2573 

1 2565 

1 


TCP 

LOADSTDT +1 

0473 

REP 

149 

LAST 

429 

33,2574 

0 0002 

0 


7C 

Q 

R0474 

COKES HERE every ITERATICN BY A WAITLIST CALL 

SET IN SLEEPIE 

0475 

REP 

9 

LAST 

429 

33,2575 

3 0025 

0 

ALLOOP 

CA 

TLVEi 

0476 

REP 

3 

LAST 

429 

33,2576 

55«645 

0 


T3 

OTSTlLTl 

0477 

REP 

2 

LAST 

429 

33,2577 

3 1540 

1 

ALLOOP 3 

CA 

ALTW 

0478 

REP 

1 



33,2600 

55«631 

0 


T3 

caosAvEi 

0479 

REP 

8 

LAST 

429 

33,2801 

0 5301 

0 


IC 

1KASC«« 

0480 





33,2602 

00115 

1 


OCT 

00115 

0481 

REP 

2 

LAST 

430 

33,2603 

31«631 

1 

ALLOOPI 

CAB 

CaosAvBi 

0482 

REP 

3 

LAST 

430 

33,2604 

55«540 

0 


T3 

ALTM 

0483 

HEP 

130 

lAST 

409 

33,2605 

10 000 

0 


CCS 

A 

0484 

REP 

131 

LAST 

430 

33,2606 

3 0000 

1 


CA 

A 

0485 

HEP 

1 



33,2607 

55«541 

1 


T3 

ALTIMS 

0486 

IffiP 

132 

LAST 

430 

33,2610 

4 0000 

0 


CS 

A 

0487 

REP 

4 

lAST 

430 

33,2611 

55*540 

0 


T3 

ALTIM 

0488 

HEP 

97 

LAST 

427 

33,2812 

3 4714 

1 


CAP 

ZERO 

04881 

REF 

7 

LAST 

427 

33,2613 

56 037 

0 


XCH 

PIPAX 

0489 

HEP 

7 

LAST 

427 

33,2614 

55*162 

1 


T3 

DH-VX 

0490 

REF 

98 

LAST 

430 

33,2815 

3 4714 

1 


CAP 

ZERO 

04901 

HEP 

2 

LAST 

427 

33,2616 

56 040 

0 


XCH 

PIPAY 

0491 

REP 

4 

LAST 

294 

33,2817 

55*164 

1 


TS 

DELvy 

0492 

REP 

99 

lAST 

430 

33,2620 

3 4714 

1 


CAP 

ZERO 

04921 

REP 

2 

LAST 

427 

33,2621 

56 041 

1 


XCH 

PIPAz 

0493 

REF 

3 

LAST 

295 

33,2622 

55*166 

0 


TS 

DELVZ 

0494 

REP 

1 



33,2623 

3 4374 

0 


CAP 

I 9 DECH, 

0495 

REP 

1 



33,2624 

0 4114 

1 


ic 

NEWPHASE 

0496 





33,2625 

00005 

1 


OCT 

00005 

0501 

REF 

3 

LAST 

418 

33,2626 

3 4675 

1 

SPEC STS 

CAP 

PHIO 20 

0502 

REP 

16 

LAST 

418 

33,26 27 

0 5042 

1 


TC 

FI.NDVAC 

0503 

REP 

3 

LAST 

430 

ES,1631 




ebank= 

GBOSAVEl. 

0504 

REP 

1 



33,2630 

02633 

0 


2CADR 

ALPLT 

0504 

REP 

1 



33,2631 

66065 

1 




0505 

REP 

20 

lAST 

418 

33,2632 

0 5213 

1 


TC 

WartVER 


STORE TIME TO SET OP NEXT WAITLIST. 


aiOUlX) NEVER HIT THIS LOCATICN 


SWRT THE JOB 


I 
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USBRotS PAGE- NO. 16 Eg S3 

B0508 

mis IS part op the 

JOB DOE EVERY IIBHATICN 




•SOT 

BEP 

2 

LAST 

429 

33,2633 

0 255 3 0 

ALPLT 

TC 

STOaHYIA 

STORE DATA IN CASE OP RESTART IN JOB 

0508 

HEP 

9 

LAST 

430 

33,2634 

0 5301 0 


1C 

WASCHNO 

mis IS THE JOB DOffl EVERY I1ERATICN 

0509 





33,2635 

00215 1 


OCT 

00215 


0510 





33,2636 

1 2640 0 


TCP 

♦2 


0511 

REP 

2 

LAST 

430 

33,2637 

0 2564 1 

ALPLTl 

1C 

LOADS1DT 

CCMES HERE CN RESTART 

0512 

REP 

3 

LAST 

42T 

33,2640 

llo643 0 


CCS 

GEOCCMPl 


•513 





33,2641 

0 2643 1 


1C 

♦2 


0514 

REP 

1 



33,2642 

0 2646 1 


1C 

NOIWLOP 


0515 

REP 

2 

LAST 

429 

33,2643 

0 3401 1 


1C 

Q^CCCh®0 

SEE IF PRBLAUNCM OVER 

0510 

REP 

68 

LAST 

42T 

33,2644 

0 4555 0 


1C 

BANKCALL 

CCMPENSATICN ip in COMPASS 

•SIT 

HEP 

1 



33,2645 

15262 0 


CADH 

1/PIPA 


0518 

IffilP 

22 

LAST 

42T 

33,2646 

0 6006 1 

NOBMLOP 

1C 

INTPRET 


0519 





33,2847 

T7745 1 


DU»D 



0520 

REP 

2 

LAST 

42T 

33,2650 

27121 0 



INTVAL 


0521 

REF 

5 

LAST 

403 

33,2651 

24051 0 


STOVL 

Si 


0522 

REF 

8 

lAST 

430 

33,2652 

01163 1 



DELVX 


0523 





33,2653 

76505 0 


VXM 

va,i 


0524 

REP 

23 

LAST 

427 

33,2654 

02672 0 



X94 


0525 





33,2655 

57545 1 


DLCMD 

DC01P 


0526 

REP 

228 

LAST 

430 

33,2656 

00160 0 



MPAC +3 


05 2T 

REF 

1 



33,2657 

16533 0 


STCDL 

0PIPAY 


0528 

REP 

229 

LAST 

431 

33,2680 

00162 1 



MPAC +5 


0529 

REP 

1 



33,2661 

02537 1 


STORE 

DPIPAz 


0530 





33,2662 

76001 1 


SBTPD 

AXT,1 


0531 





33,2663 

00001 0 



0 


0532 





33,2664 

00010 0 



8J> 


0533 





33,2665 

57535 0 


SLOU) 

DCCMP 


0534 

REP 

4 

LAST 

431 

33,2666 

02644 0 



ffiOCOMPl 


0535 





33,2687 

77640 0 





0536 

REP 

1 



33,2670 

67203 1 



ALWAYSG 

DO A OJICk COMPASS 
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R0537 

WV CS HAVS . 

JUST IKS CALIBRATICN PARTS 

OF THE PROGRAM-NEXT PAGES 

05375 

REP 

2 last 

415 

TO 424' 

314 314+ 


COUNT 

33/CCMST 

0538 





33,2671 

50135 0 

ALCGHk 

SLOAD 

BM< 

0539 

REP 

2 

LAST 

430 

33,2672 

02542 0 



ALTIMS 

0540 

HEP 

1 



33,2673 

66706 0 



ALFLT3 

0541 





33,2674 

72174 0 

ALkOO 

AXT,2 

LXA.l 

0542 





33,2675 

00014 1 



IZD 

0543 

HEP 

2 

LAST 

427 

33,2676 

02454 0 



ALXlS 

0544 





33,2677 

62143 0 

ALKC02 

DUMD* INCR.i 

0545 

REP 

1 



33,2700 

02243 0 



ALPIV H44D,1 

0546 





33,2701 

77775 1 


DEC 

-2 

0547 

HEP 

1 



33,2702 

12555 1 


STORE 

ALUG +10D,z 

0548 





33,2703 

66104 1 


Tlx, 2 

SXA.i 

0549 

REP 

1 



33,2704 

66677 1 



ALKCOz 

0550 

REP 

3 

LAST 

432 

33,2705 

02454 0 



ALXlS 

0551 





33,2706 

77770 1 

ALFLT3 

AXT.l 


0552 





33,2707 

00010 0 



8D 

0553 





33,2710 

41343 0 

DEUMLP 

DLQAD* DMP 

0554 

REP 

2 

LAST 

431 

33,2711 

02543 1 



DPIPAy +bD,1 

0555 

REP 

1 



33,2712 

27675 0 



PIPASC 

0556 





33,2713 

43661 1 


SLR 

BOSU* 

0557 





33,2714 

21212 0 



9D 

0558 

REF 

1 



33,2715 

02511 0 



INTY +8D,1 

0559 

REP 

2 

LAST 

432 

33,2716 

06511 1 


STORE 

INTY +8D,1 

0560 





33,2717 

40725 0 


POOL 

DKPA 

0561 

REP 

1 



33,2720 

27677 1 



VELSC 

0562 

HEP 

1 



33,2721 

02531 1 



VLAUN +8D,i 

0563 





33,2722 

77732 1 


SliZR 


0564 





33,2723 

45425 0 


DSU 

SWDR 

0565 

REP 

1 



33,2724 

71206 0 


STORE 

DaM +8D,1 

0566 

REP 

2 

LAST 

432 

33,2725‘ 

06573 0 


STORE 

DEIi4 tloD.i 

0567 





33,2726 

77100 0 


TIX.l 

AXT.Z 

0568 

REP 

1 



33,2727 

66710 1 



DELMLP 

0569 





33,2730 

00004 0 



4 

0570 





33,2731 

56743 1 

ALII^P 

IX.CWD+ DMPR+ 

0571 

HEP 

3 

LAST 

98 

33,2732 

75314 0 



AlJC t4,Z 

0572 

HEP 

2 

LAST 

432 

33,2733 

75230 1 



ALDK <-4,Z 

0573 

HEP 

4 

LAST 

432 

33,2734 

12463 0 


STORE 

AIK +4,Z 

0574 





33,2735 

77104 1 


TIX.Z 

AXT.Z 

0575 

REF 

1 



33,2736 

66731 1 



ALK.P 

0576 





33,2737 

00010 0 



BD 

0577 





33,2740 

66140 1 

AIJCLP 

LXC.l 

SXA.l 

0578 

REP 

1 



33,2741 

02455 1 



CMPXl 

0579 

REP 

2 

LAST 

432 

33,2742 

02455 1 



CMPXl 

0580 





33,2743 

56743 1 


IXXWD* DMPR+ 

0581 

REF 

5 

LAST 

432 

33,2744 

02460 1 



AIK tl,l 

0582 

REP 

3 

LAST 

•432 

33,2745 

75206 1 



DEIM tsD.Z 


NO NEW GAINS NEEDED 

LOADS SLOPES AND TU« CONSTANTS AT ROST 


MEASUREmiT INCOBPORATICN ROUTINES 
AND GAIN UPDATES 
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0583 





33,2746 

77613 0 


ViAI» 


0584 

REP 

3 

LAST 

432 

33,2747 

75266 1 



WTY *80,2 

0585 

REP 

4 

LAST 

433 

33,2750 

12511 1 


STORE 

HOY *80,2 

0586 





33,2751 

42743 1 


DLQAD4 dad* 

05 8T 

REP 

6 

LAST 

432 

33,2752 

75304 1 



AIX *120,2 

0588 

REP 

3 

LAST 

432 

33,2753 

75220 0 



ALCK *120,2 

0589 

REP 

7 

LAST 

433 

33,2754 

12473 1 


STORE 

ALK *1^,2 

0590 





33,2755 

42673 0 


CMPB* 

QAD* 

0591 

REP 

4 

LAST 

432 

33,2756 

75206 1 



OBM *8D,2 

0592 

REP 

5 

LAST 

433 

33,2757 

75256 1 



INTY *16D,2 

0593 

REP 

6 

LAST- 

433 

33,2760 

12521 1 


STORE 

INTV *16D,2 

0594 





33,2761 

40743 0 


DLCAD4 DMP* 

0595 

REP 

1 



33,2762 

27702 1 



ALSC *1,1- 

0596 

HEP 

5 

LAST 

433 

33,2763 

75206 1 



DBLM *8D,2 

059T 





33,2764 

42772 0 


SLlR 

DAD* 

0598 

REP 

2 

LAST 

432 

33,2765 

75246 0 



VLAU4 *8D,2 

0599 

REP 

3 

LAST 

433 

33,2766 

12531 0 


STORE 

VlAlU *80,2 

0600 





33,2767 

76104 0 


TIX,2 

AXT.l 

0601 

REP 

1 



33,2770 

66740 1 



ALKLP 

0602 





33,2771 

00010 0 



8D 

0603 





33,2772 

64743 0 

LOOSE 

DLQAD4 FOOL* 

0604 

REP 

1 



33,2773 

02533 0 



ACOcD * 8 D,i 

0605 

REP 

4 

LAST 

433 

33,2774 

02531 1 



VIAlN *8 D,i 

0606 





33,2775 

55523 0 


TOOL* 

VDEP 

0607 

REP 

1 



33,2776 

02541 0 



POS7V *eD,i 

0608 





33,2777 

76521 0 


MXV 

va,! 

0609 

HEP 

2 

LAST 

90 

33,3000 

02001 1 



TRANS41 

0610 





33,3001 

77745 1 


DtXAD 


0611 

REP 

230 

LAST 

431 

33,3002 

00155 0 



MPAC 

0612 

REP 

2 

LAST 

433 

33,3003 

06541 1 


STORE 

POSNV *bD ,1 

0613 





33,3004 

77745 1 


DLOAD 


0614 

REP 

231 

LAST 

433 

33,3005 

00160 0 



MPAC *3 

0615 

HEP 

5 

LAST 

433 

33,3006 

06531 0 


STORE 

VIAlN + 8D,1 

0616 





33,3007 

77745 1 


DLOID 


0617 

REF 

232 

LAST 

433 

33,3010 

00162 1 



MPAC +5 

0618 

REF 

2 

LAST 

433 

33,3011 

08533 1 


STORE 

ACCVSD +8D,1 

0619 





33,3012 

77700 0 


TIX,1 


0620 

REP 

1 



33,3013 

66772 0 



LOOSE 

0621 





33,3014 

76174 1 


AXT,2 

AXT.l 

0622 





33,3015 

00006 1 



6 

0623 





33,3016 

00002 0 



2 

0624 





33,3017 

57 343 1 

BOOP 

WXAIWc DfrIPR 

0625 

REP 

1 



33,3020 

02513 1 



ANGX *2,1 

0626 

REP 

1 



33,3021 

27705 0 



GEORGBJ 

0627 





33,3022 

77722 0 


SR2R 


0628 





33,3023 

73406 1 


PUSH 

SIN 


EXHWPOLAIE SWAV VARIABLES 


EVAUMTB SINES AND COSINES 
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ALiaNT.-SHT 





0629 





33,3024 

56072 

1 

SL 3 R 

XAD.i 

0690 

RB' 

1 



33,3025 

00046 

0 


XI 

0631 





33,3026 

10021 

0 

STORE 

16D,2 

0632 





33,3027 

77745 

1 

DLOAD 

0633 





33,3030 

77746 

1 

COS 


0634 





33,3031 

10027 

0 

STORE 

22 D ,2 

0635 





33,3032 

77704 

1 

TIX,2 


0636 

HBP 

1 



33,3033 

67017 

0 


BOOP 

06 3T 



• 


33,3034 

77776 

1 

perperas Exit 


0638 

REE 

2 

LAST 

252 

33,3035 

3 4753 

1 

CA 

E8ANK7 

0639 

tes' 

5 

LAST 

275 

BT,1400 



ebank= 

LATT SPL) 

08395 

PEP 

18 

LAST 

372 

33,3036 

54 003 

0 

TS 

EBANK 

0640 

OB' 

6 

LAST 

434 

33,3037 

0 1400 

1 

TC 

LAT< SPL) 

R0641 



CAUTION 






R0642 

u® erasable proctbam 

THAT DOSS THE CALCulATIONS MUST BE 

LC«DED 

R0643 

before any ArraMPT is MW® to 

RUN THE IMU PERFORMANCE TEST 


USBBotS PAGE NO. 19 


Es S3 


COSINES 


00 TO ebasible cnly to return 


0734 

RBP 

9 

LAST 

429 

E5,1412 



EBANK= 

LENOTHOT 


0735 

REP 

10 

LAST 

434 

33,3040 

11«412 

0 

CNCEMORE CCS 

LEJIGTHOT 


0736 

REP 

2 

LAST 

427 

33,3041 

0 2522 

0 

TC 

SLEEP IB 

TEST NOT Over set up NEXT waitlist 

07361 

REP 

6 

LAST 

429 

33,3042 

11*450 

0 

CCS 

TORQNDX 


07362 





33,3043 

1 3045 

1 

TCP 

+2 


07363 

IffiP 

1 



33,3044 

0 3047 

1 

TC 

SETUPBRI 


07364 

REP 

9 

lAST 

419 

33,3045 

3 0032 

0 

CA 

axjx 


07365 

RBP 

3 

LAST 

419 

33,3046 

55*414 

0 

TS 

LOSVEC +1 

FOR TRCUBlEaiOOTING POSNS 2$4 VD 

0737 

RS? 

23 

LAST 

431 

33,3047 

0 6006 

1 

SEIUPERl TC 

INTPRET 

DRIFT TEST a/ER 

0738 





33,3050 

65345 

0 

DIXMD 

POOL 

ANGIES FRCM drift TEST CNLY 

0739 

HEP 

1 



33,3051 

02503 

0 


ANGZ 


0740 

REP 

1 



33,3052 

02507 

1 


ANGY 


0741 





33,3053 

55525 

0 

poa. 

VDEF 


0742 

RBP 

2 

LAST 

433 

33,3054 

02511 

0 


ANGX 


0743 





33,3055 

74 276 

1 

VCCMP 

vxsc 


0744 

RHP 

2 

LAST 

433 

33,3056 

27705 

0 


GEORGEJ 


0745 





33,3057 

74521 

1 

MXV 

VSRl 


0746 

REF 

24 

lAST 

431 

33,3060 

02672 

0 


XS1 


0747 

RBP 

10 

LAST 

424 

•33,3061 

02760 

1 

STORE 

OGC 


0748 





33,3062 

77776 

1 

exit 



0749 

REP 

10 

LAST 

431 

33,3063 

0 5301 

0 

TORO INCH TC 

PHASCHNG 


0750 





33,3064 

, 00005 

1 

OCT 

00005 


0751 

REP 

1 



33,3065 

3 2444 

1 

CA 

OGCPL 


0752 

HEP 

69 

lAST 

431 

33,3066 

0 4555 

0 

TC 

bankcau. 


0753 

REP 

3 

LAST 

293 

33,3067 

17125 

1 

CADR 

IMUPUI^SE 


0754 


5 

lAST 

423 

33,3070 

0 2316 

1 

TC 

IMUSTUX! 


0755 

RBP 

7 

lAST 

434 

33,3071 

11*450 

0 

CCS 

TOHQ'JDX 

+ IP IN VERTICAL DRIFT TEST 

0756 

REP 

1 



33,3072 

0 2262 

0 

TC 

VAIJRIS 

vert drift TEST O/ER 

0757 

RBP 

24 

I A ST 

434 

33,3073 

0 6006 

1 

TC 

INTPRET 
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1 


075T1 





33,3074 

77624 1 


CAU, 


0T5T2 

BEF 

2 

LAST 

427 

33,3075 

64000 0 



bkiheivse 

0T5T3 





33,3076 

77776 1 


EXIT 


0T58 

REF 

1 



33,3077 

0 2122 1 


TC 

TOaOUG 

0T59 

REF 

21 

LAST 

251 

33,3100 

0 5537 0 

SCKEERRR 

TC 

ALAR4 

0T60 





33,3101 

01600 0 


OCT 

1600 

0T61 





33,3102 

0 3105 0 


TC 

♦3 

0T62 

REF 

22 

LAST 

435 

33,3103 

0 5537 0 

SO®HR2 

TC 

ALARM 

0T63 





33,3104 

01601 1 


OCT 

1601 

0T64 

REF 

11 

LAST 

434 

33,3105 

0 5301 0 


1C 

PHASCHNO 

0T65 





33,3106 

00005 1 


OCT 

00005 

0766 

REF 

2 

LAST 

424 

33,3107 

0 2287 0 


TC 

BJDTESTl 

R0767 

THE 

FAMOUS MAGIC NLWBERS OP 

SCW4IDT Are no* PART CF AN 

erasable load 

0768 





33,3110 

02222 1 

DECS 85 

OCT 

02222 

0769 





33,3111 

00000 1 

scmzeros 

2DEC 

.00000000 

0769 





33,3112 

00000 1 




0770 





33,3113 

00000 1 


2DEC 

.00000000 

0770 





33,3114 

00000 1 




0771 





33,3115 

00000 1 


OCT 

00000 

0772 





33,3116 

00000 1 

CNEDPP 

OCT 

00000 

0773 





33,3117 

00001 0 


OCt 

00001 

0774 





33,3120 

00004 0 

INTVAL 

OCT 

4 

0775 





33,3121 

00002 0 


OCT 

2 

0776 





33,3122 

00220 1 


DEC 

144 

0777 





33,3123 

77776 1 


DEC 

-1 

0778 





33,3124 

35730 0 

SCUPLY 

2DEC 

.935 05 87 0 

0778 





33,3125 

00035 1- 




0779 





33,3126 

10317 0 


2Dec 

.26266423 

0779 





33,3127 

17550 1 




0780 





33,3130 

00115 1 

77DG01Ij 

DEC 

77 

0781 

REF 

4 

LAST 

432 

33,3131 

01453 1 

AlOOOGZ 

CTNADR ALXIS -1 

R0789 

GYROCCMPASS PORTICNS FINISH 

THIS LOG SECTICN 



07895 

REP 

1 






COjNT 

33/POl 

R0790 

INITIALIZATION SECTICN 





0791 

BEP 

56 

LAST 

416 

33,3132 

3 4712 1 

gtscpss 

CAP 

GNE 

0792 

RBF 

5 

last 

431 

33,3133 

55«643 0 


TS 

GEOCCMPl 


I 


I 



USSRoiS PAGE NO. 20 B5 S3 
ffiT UP EHATE FOB PIP TEST OR CCKPASS 

GO TO IHJ2 FOR A PIPA lEST AND DISPLAY 

IITO B+14 QHDBH is NOW IMPORTANT 


ABO^ OBDeR IS IMPORTANT 

INITIAL GAINS FOR PIP OUTPUTS 
INITIAL GA INS/4 FOR EHE<?riGN ANGLRS 


CAUm BY V37 . 

THIS IS THE LEAD IN FOR COIPASS. 
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0793 

BSP 

1 



33,3134 

3 3424 0 


CA 

I/PIPAOT 

0794 

BSP 

8 

LAST 

416 

33,3135 

55«074 1 


T3 

1/PIPADT 

0795 

HEP 

21 

LAST 

298 

33,3138 

3 4703 1 

nxxtgnn 

CA 

BIT8 

0736 

REP 

11 

LAST 

434 

33,3137 

55«412 0 


T3 

LBv'OTHOT 

0797 

REP 

1 



33,3140 

3 4731 0 


CAP 

1/2SECX 

0T9B 

REP 

3 

LAST 

429 

33,3141 

550844 1 


T3 

iSECxn 

0799 

REP 

57 

LAST 

435 

33,3142 

3 4712 1 


CAP 

CNE 

OBOO 

IffiP 

1 



33,3143 

55«832 0 


T3 

PRHMIWi 

08005 

Ra^' 

2 

last 

417 

33,3144 

55»8S7 0 


T3 

PBRFDLAY n 

08006 

RHP 

100 

LAST 

430 

33,3145 

3 4714 1 


CAP 

zero 

08007 

REF 

3 

LAST 

436 

33,3146 

55«658 1 


T3 

PEHFDLAY 

0801 





33,3147 

0 0006 1 


BXTE® 


0802 

REP 

4 

LAST 

98 

33,3150 

3 1634 1 


DCA 

UWCHAZl 

0803 

REP 

1 



33,3151 

53»638 1 


DXCH 

NEWAZI 

08031 





33,3152 

0 0006 1 


EXTH® 


08032 

REF 

5 

LAST 

436 

33,3153 

3 1634 1 


DCA 

UJNCHAZl 

08033 

SSF 

1 



33,3154 

53«640 0 


DXCH 

CLDAZFflH 

0804 

REP 

2 

LAST 

416 

33,3155 

3 4375 1 

settipcjc 

CA 

DEC17 

0805 

BSP 

5 

LAST 

427 

33,3156 

55«855 1 


T3 

ZERCNDXI 

0806 

REP 

1 



33,3157 

3 2446 0 


CA 

XSMADR 

0807 

REEF 

3 

LAST 

427 

33,3160 

0 2356 0 


rc 

zeroing 

0808 

REP 

1 



33,3161 

0 3163 0 


TC 

POSN17C 

0809 

REP 

1 



33,3162 

0 2030 0 


TC 

GEOIMUTT 

0810 





33,3163 

0 0006 1 

POSN17C 

EXTEND 


0811 

I®P 

13 

LAST 

424 

33,3164 

23«425 0 


OCCH 

OPLACB 

0812 

IffiP 

2 

LAST 

417 

33,3165 

4 4675 0 


CS 

HALP 

0813 

REP 

2 

LAST 

93 

33,3166 

55«705 0 


T3 

ZSM 

0814 


25 

LAST 

434 

33,3167 

0 6006 1 


TC 

intpret 

0815 





33,3170 

41545 0 


DLOM) 

PUSH 

0816 

RQ? 

2 

LAST 

436 

33,3171 

02636 0 



NEWAZI 

0817 





33,3172 

77756 0 


SIN 


0818 

BBF 

25 

LAST 

434 

33,3173 

02676 1 


STORE 

XS4 +4 

0819 

RjEP 

2 

LAST 

93 

33,3174 

16702 0 


STODL 

TS'I <-2 

0820 





33,3175 

77746 1 


COS 


0821 

REP 

3 

LAST 

436 . 

33,3176 

02704 0 


STORE 

ys4 +4 

0822 





33,3177 

77676 0 


DCCMP 


0823 

REP 

26 

LAST 

436 

33,3200 

02674 0 


STORE 

XSM +2 

0824 





33,3201 

77776 1 


EXIT 


0825 

i®P 

14 

LAST 

436 

33,3202 

0 1425 0 


TC 

OPLACB 

R0826 

JOB 

DONE EVERY ITERATICN THROUGH CCMPASS PROGRAM. SET BY TASK AUXXF 

08268 

REP 

2 

LAST 427 TO 

432* 

142 142* 


(WUNT 

33/P02 

0027 





33,3203 

44743 1 

ALWAYsa 

w.oywc DSij^ 

0828 

REP 

3 

LAST 

432 

33,3204 

02543 1 



DPIPAY +8D,1 

0829 

REF 

2 

LAST 

98 

33,3205 

02505 0 



PXLDBLVl +815 


CCMPASS IS A .5 SEC LOOP 


GO TO IWJ2 FOR FURTHER INITIALIZATION 
CCMPASS POSITION Z DCMN,X DO'/NRANGB 
FRCM NORTH IN REvauTICNS + CLOCkwSB 
ALL THIS TO INITIALIZE MATRIX 




CCMPASS AND ERECT 
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0830 





33,3206 

42675 0 

DMPR 

0831 

US' 

1 



33,3207 

27713 1 


0832 

REP 

3 

LAST 

436 

33,3210 

02505 0 


0833 

REP 

4 

LAST 

437 

33j3211 

06505 1 

STORE 

0834 





33,3212 

77613 0 

DAD* 

0835 

HEP 

1 



33,3213 

02507 1 


0836 

DBF 

2 

LAST 

437 

33,3214 

06507 0 

STORE 

0837 





33,3215 

42675 0 

DMPR 

0838 

REP 

1 



33,3216 

27715 1 


0839 

IffiP 

• 5 

lAST 

437 

33,3217 

02505 0 


0840 





33,3220 

41475 1 

DMPR 

0841 

HEP 

1 



33,3221 

15330 0 


0842 





33,3222 

67300 0 

TIX,1 

0843 

REP 

2 

LAST 

431 

33,3223 

67203 1 


0844 

RHP 

1 



33,3224 

02647 0 


0845 





33,3225 

71254 1 

B2B 

0B46 

REP 

1 



33,3228 

67237 0 


0847 

REP 

2 

LAST 

08 

33,3227 

02471 1 


0848 





33,3230 

45425 0 

DSU 

0849 

REP 

3 

lAST 

437 

33,3231 

61306 0 

STCDL 

0850 





33,3232 

77621 1 

BDSU 

0851 

US' 

4 

LAST 

437 

33,3233 

02473 0 


0852 

BEP 

5 

LAST 

437 

33,3234 

02473 0 

STORE 

0853 





33,3235 

77650 1 

goto 

0854 

RBP 

1 



33,3236 

67261 0 


0855 





33,3237 

43345 1 

CCMPGS DLCAD 

0856 

REP 

6 

LAST 

437 

33,3240 

02467 0 


0857 

HEP 

6 

LAST 

437 

33,3241 

02475 0 


0858 

REP 

7 

LAST 

437 

33,3242 

16467 0 

SIODL 

0859 

RHP 

7 

LAST 

437- 

33,3243 

02475 0 


0860 





33,3244 

44275 1 

DMPR 

0861 

REP 

1 



33,3245 

27717 0 


0862 

REP 

8 

LAST 

437 

33,3246 

02473 0 


0863 

REP 

9 

LAST 

437 

33,3247 

16473 0 

STOOL 

0884 

REP 

8 

LAST 

437 

33,3250 

02501 1 


0665 





33,3251 

44275 1 

DMPR 

0866 

fflF 

2 

LAST 

437 

33,3252 

27717 0 


0867 

RBP 

10 

LAST 

437 

33,3253 

02471 1 


0868 





33,3254 

57325 1 

PODl, 

0869 

REP 

3 

LAST 

437 

33,3255 

02503 0 


0870 

REP 

1 



33,3256 

2T721 0 


3871 





33,3257 

45421 1 

BDSU 

3872 

REF 

11 

lAST 

437 

33,3260 

75306 0 

STORE 

)873 





33,3261 

77776 1 

ADDINDRP EXIT 

)874 

RHP 

12 

LAST 

436 

33,3262 

11«412 0 

ENDGTSAL CCS 

3875 

REP 

3 

LAST 

434 

33,3263 

0 2522 0 

TC 

3876 

REP 

3 

LAST 

431 

33,3264 

0 3401 1 

1C 

3877 

RBP 

2 

LAST 

188 

33,3265 

11*304 0 

CCS 


DAD4 
CEOCCNSl 
FILCELVl +bD, 1 
PILDELVl tsD,! 

INTVECi +8D,1 
INTVECi +80,1 
DAD* 

GB0C(NS2 

PILDELVl +8D, 1 

POSH 

GE0CCNS5 

SLOAD 

ALBAYSO 

ERECTIMi 

DLC«D 

COMPOS 

THETANl +2 

STADR 

THBTANl +2 EHECTICN ONLY. 

THETANl <-4 
THBIANl +4 

ADDINDRP 

DAD COMPASS 

THEWNl 

piimvi 

THEWNl 

PILC«LV1 

BDSU 

GE0CCNS3 

THEWNl +4 

THEWNl +4 

PILDEIVI +4 

BDSU 

GE0CCNS3 

THEWNl +2 

DMPR 

INTVECi +4 
GE0CCNS4 
SWDR 
THEWNl +2 

LENOTHOT IS 5 SEC (VER-1HE TIJ® TO TORO PIATFORM 

SLEEPIE NO-SET IR* NEXT VrAITI.IST CAU, FOR 5 SEC 

CHOCCMED 

UTYHO YES But are GYROS BUSY 
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0816 

REP 

4 

LAST 

437 

33,3266 

1 2523 

0 


TCP 

SI EBP IE tl 

0879 


26 

LAST 

436 

33,3267 

0 6006 

1 

LASTGTS 

TC 

INTPHBT 

0880 





33,3270 

77775 

1 


VLOAD 


0881 

REP 

9 

LAST 

423 

33,3271 

02650 

0 



BHCCMPl 

0862 

REP 

4 

LAST 

430 

33,3272 

16461 

0 


STODL 

THETAXI 

0883 

REP 

4 

LAST 

423 

33,3273 

02443 

0 



TMABK 

0884 

REP 

8 

LAST 

433 

33,3274 

02457 

0 


STORE 

ALK 

0885 





33,3275 

77776 

1 


EXIT 


0886 

REF 

12 

LAST 

'435 

33,3276 

0 5301 

0 

BEsmiER TC 

PHASCHNO 

0887 





33,3277 

00275 

1 


OCT 

00275 

0888 

REP 

27 

LAST 

438 

33,3300 

0 6006 

1 


TC 

INTPHBT 

0889 





33,3301 

64375 

1 


VLOAD 

MXV 

0890 

REP 

12 

LAST 

437 

33,3302 

02467 

0 



THETANi 

0891 

REP 

27 

LAST 

436 

33,3303 

02672 

0 



XS4 

0892 





33,3304 

53372 

1 


va,i 

VAD 

0893 

REP 

5 

LAST 

438 

33,3305 

02461 

0 



THEIAXI 

0894 

HEP 

10 

LAST 

438 

33,3306 

16650 

0 


STODL 

EHCCMPi 

0895 

REP 

9 

LAST 

438 

33,3307 

02457 

0 



AUC 

0896 

REP 

5 

LAST 

438 

33,3310 

02443 

0 


STORE 

TMABK 

0897 





33,3311 

77776 

1 


EXIT 


0898 

REP 

5 

LAST 

429 

33,3312 

0 2417 

1 


TC 

EARTHR+ 

0899 

REF 

2 

LAST 

437 

33,3313 

31«646 

1 


CAE 

ERECTIMi 

0900 

REP 

4 

LAST 

430 

33,3314 

55«631 

0 


T3 

GEOSAvEi 

0901 

REP 

13 

LAST 

438 

33,3315 

0 5301 

0 


TC 

PHASCHNO 

0902 





33,3316 

00155 

0 


OCT 

00155 

0903 

REP 

28 

LAST 

438 

33,3317 

0 6006 

1 

BESTEsn 

TC 

INTPRET 

0904 





33,3320 

77775 

1 


VLOAD 


0905 

REP 

5 

LAST 

427 

33,3321 

2711’2 

0 



schzeros 

0906 

REP 

13 

LAST 

433 

33,3322 

02467 

0 


STORE 

thbtani 

0907 





33,3323 

77776 

1 


EXIT 


0912 

REP 

1 



33,3324 

11«632 

0 


CCS 

PREMTRXC 

09121 

REP 

1 



33,3325 

0 3374 

1 


TC 

N0QI0R1X> 

09122 

REP 

14 

LAST 

438 

33,3326 

0 5301 

0 


TC 

PHASCHNO 

0913 





33,3327 

00255 

0 


OCT 

00255 

09131 

REP 

29 

LAST 

438 

33,3330 

0 6006 

1 

HESreST3 TC 

INTPRET 

0914 





33,3331 

77745 

1 


IXXW) 


09142 

REP 

2 

LAST 

169 

33,3332 

02634 

1 



LAlwCHAZ 

0915 





33,3333 

53025 

0 


Dsa 

BzB 

09151 

REP 

2 

lAST 

436 

33,3334 

02640 

1 



OLDAZiWIH 

09152 

REP 

1 



33,3335 

67371 

0 



NOAzCHGE 

09153 





33,3336 

00001 

0 


STORE 

OD 

09154 





33,3337 

43335 

0 


SLOMy 

DAD 

09155 

HEP 

2 

LAST 

421 

33,3340 

27120 

1 



OJEDPP +1 

0918 

REP 

2 

LAST 

438 

33,3341 

02633 

0 



PREMTRXC 

0919 

REF 

3 

LAST 

438 

33,3342 

16633 

0 


STODL 

PREMTRXC 

0920 

REF 

3 

I A ST 

438 

33,3343 

026 34 

1 



lAUNCHAz 

09201 

REP- 

1 



33,3344 

16636 

0 


STOOl. 

NEwAZMTH 

09202 





33,3345 

00001 

0 



OD 




BUSY-GET THEM .5 SECCNDS FRCM NOW 


PREVIOUS SECTICN WAS FOR RESTARTS 


ADO CCWPASS CCM4ANDS INTO BRATE 


TOHflUE IT all in 


DOES NOT change lAlDICHAz 
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09203 

HEP 

1 



33,3346 

02654 1 

adbrccmp store 

ERCOMP +4 


09204 





33,3347 

77776 1 

EXIT 



0920S 

HEP 

2 

LAST 

436 

33.3350 

0 3163 0 

TC 

POSNitC 


09206 

lEP 

15 

LAST 

438 

33,3351 

0 5301 0 

TC 

PHASCHNO 


0920T 





33,3352 

00335 1 

OCT 

00335 


0921 





33,3333 

0 0006 1 

RESCSlNO EXTEND 


0922 

HEP 

2 

LAST 

438 

33,3354 

3 1636 0 

DCA 

NEWAZ41H 


0923 

REP 

3 

LAST 

438 

33,3355 

S3«640 0 

DXCH 

OLDATfPm 


09231 

hep 

33 

LAST 

384 

33.3356 

3 4704 0 

CA 

BIT! 

SPEND 320 SEC. ERECTING 

09232 

HEP 

13 

LAST 

437 

33,3357 

55-412 0 

TS 

LEJOTHOT 


0924 

REP 

16 

LAST 

439 

33,3360 

0 5301 0 

TC 

PHASCHNO 


0925 





33,3361 

00075 0 

OCT 

00075 


0926 

REP 

1 



33,3362 

3 3423 1 

SPITOYRO CA 

erccmppl 


0927 

REP 

70 

LAST 

434 

33,3363 

0 4555 0 

TC 

bankcall 


0928 


4 

LAST 

434 

33,3364 

17125 1 

CADR 

MjPULffl 


0929 

REP 

71 

LAST 

439 

33,3365 

0 4555 0 

TC 

RANKCAU, 


0930 

HEP 

7 

LAST 

421 

33,3336 

17516 0 

CADR 

IMUSTAU, 


0931 

REP 

2 

LAST 

421 

33,3367 

0 3103 0 

TC 

SCKSRR2 


09311 

REP 

3 

LAST 

420 

33,3370 

0 2453 1 

TC 

ESTIMS • 

RE-INITIALIzE 

0932 





33,3371 

77776 1 

NCft2fM(F EXIT 



0933 

REP 

58 

LAST 

436 

33,3372 

3 4712 1 

CA 

CNE 


0934 

HEP 

4 

LAST 

438 

33,3373 

55«632 0 

TS 

PR&rmxc 


0941 

REP 

5 

LAST 

438 

33.3374 

11-631 0 

NOCHORLD CCS 

GEOSAvEi 


0942 

REP 

3 

LAST 

438 

33.3375 

55-646 0 

TS 

BHECTIMi 

COlFTS DCWN FOR ERECTICN. 

0943 

REP 

1 



33,3376 

3 433-/ 1 

ANNNNNN CAP 

NIN3 


0944 

REP 

14 

LAST 

439 

33,3377 

55-412 0 

TS 

’i^l.ClHOr 


0945 

REP 

5 

LAST 

438 

33,3400 

0 25 23 1 

TC 

SLEEP IE +1 


0946 





33.3401 

0 0004 0 

QlKCOffiD INHINT 



0947 

RHP 

101 

LAST 

436 

33,3402 

4 4714 0 

CS 

ZERO 


0948 





33,3403 

0 0006 1 

EXTEND 



0949 

REP 

5 

LAST 

244 

33,3404 

06 030 1 

RXOR 

CHAN30 

READ AND INVERT BITS IN OtANNBL 30 

0950 

REF 

24 

LAST 

419 

33,3405 

7 4706 0 

mask 

bits 

LIPTOFP bit 

0951 

REP 

133 

LAST 

430 

33,3406 

10 000 0 

CCS 

A 


0952 

REP 

1 



33,3407 

1 3416 0 

TCP 

PRBLTEBM 

LIPTOPP HAS OCCURRSB 

0953 

REP 

25 

LAST 

439 

33,3410 

3 4706 1 

CA 

bits 

check POR backup LIPTOPP 

0954 

REP 

8 

LAST 

383 

33,3411 

7 0101 0 

MASK 

FLAarec^ 

bits HAWHDs 

0955 

REP 

134 

LAST 

439 

33,3412 

10 000 0 

CCS 

A 


0950 

REP 

2 

LAST 

439 

33,3413 

1 3416 0 

TCP 

pbbi.term 

BACKUP received 

0957 





33,3414 

0 0003 1 

RBLINT 



0958 

f®F 

150 

LAST 

430 

33,3415 

0 0002 0 

TC 

0 

CCNTINUE PREIAUNCH 

0959 

BBP 

1 



33,3416 

3 7657 1 

PREt,TEflM CA 

PRI022 

PHEIAUNCH DCNE - SET PH 
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0960 

PEP 

4 

LAST 

385 

33,341T 

0 5103 

0 

TC PRIOCHNQ 

increase PRIORITY HIGHER THAN SERVICER 

0961 





33,3420 

0 0004 

0 

INHINT 


0962 

REF 

34 

LAST 

380 

33,3421 

0 4574 

0 

TC POSTJU4P 


0963 

REP 

1 



33,3422 

70002 

1 

CADR Pii 


0965 

REF 

2 

LAST 

439 

33,3423 

02647 

0 

ercomppl ecadr brccmp 


0968 

REF 

3 

LAST 

389 

26,3327 



GEOCCNS5 equals HIDPHAIJ? 


0969 





33,3424 

06200 

0 

1 /PIPAGT OCT 06200 


0970 

REF 

6 

LAST 

424 

4375 



17DEOt X NDi 

OCT 21 

0971 

ref 

16 

LAST 

424 

4374 



I 9 DECW, = VDi 

OCT 23 

0972 

REP 

3 

LAST 

184 

4731 



1/2SECX = .SSEC 
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09T35 

RBP 

1 







COUNT 

33/P03 

09T4 

REP 

IT 

LAST 

439 

33,3425 

0 5301 

0 

OCCMPVEH TC 

PHASCKNO 

09T5 





33,3426 

00154 

1 


OCT 

00154 

09T6 

REP 

4 

LAST 

427 

33,3427 

0 5243 

1 


TC 

NEWMCDEX 

0977 





33,3430 

00003 

1 


M4 

03 

09771 

RBP 

1 



33,3431 

0 2037 

1 

setnbpos tc 

NBPOSPL 

0978 

REP 

72 

LAST 

439 

33,3432 

0 4555 

0 


TC 

bankcall 

0979 

RBP 

2 

LAST 

420 

33,3433 

16063 

0 


CADtt 

NWfflLEAS 

0980 

REP. 

34 

LAST 

379 

33,3434 

3 4712 

1 

OPTDATA 

CAP 

BITl 

0981 





33,3435 

22 007 

0 


ZL 


0982 

RBP 

1 



33,3436 

23«427 

1 


L0(CH 

HUN 

0983 

REP 

20 

LAST 

360 

33,3437 

55«047 

1 


TS 

DSPTEMl +2 

0984 





33,3440 

0 0006 

1 


EXTEND 

0985 

REP 

2 

LAST 

442 

33,3441 

5 1427 

1 


INDEX 

RJN 

0935 

REF 

1 



33,3442 

3 1433 

1 


DCA 

TAzELl 

0987 

RBP 

21 

LAST 

442 • 

33,3443 

53«046 

0 


DXCH 

DSPTEMl 

0983 

REP 

1 



33,3444 

3 3467 

1 


CAP 

VO5N30E 

0989 

REP 

73 

LAST 

442 

33,3445 

0 4555 

0 


TC 

BANkCALL 

0990 

REP 

1 



33,3446 

20577 

0 


CADH 

gcdspret 

0991 

REF 

1 



33,3447 

3 3455 

0 


CAP 

VN0641 

09911 

RBP 

74 

LAST 

442 

33,3450 

0 4555 

0 


TC 

bankcall 

09912 

REP 

4 

LAST 

424 

33,3451 

20624 

0 


CADR 

GOFLAai 

09913 

REP 

1 



33,3452 

0 3610 

0 


TC 

OCOMPs 

09914 





33,3453 

0 3456 

0 


TC 

+3 

09915 





33,3454 

0 3444 

0 


TC 

-8D 

09916 





33,3455 

01451 

0 

VN0641 

VN 

0841 

0992 

REF 

22 

LAST 

442 

33,3456 

53«046 

0 


DxCH 

DSPTEMl 

0993 

REP 

3 

LAST 

442 

33,3457 

51*427 

1 


INDeSG 

BUN 

0994 

REP 

2 

LAST 

442 

33,3460 

53*433 

0 


DXCH 

TAZf3.<l 

0995 

REP 

4 

LAST 

442 

33,3461 

11*427 

0 


CCS 

BIPI 

0996 





33,3462 

1 3466 

1 


TCP 

+4 

0997 

REP 

26 

LAST 

418 

33,3463 

3 4711 

1 


CAP 

TWO 

0998 

RBP 

55 

LAST 

424 

33,3464 

54 001 

1 


TS 

Ij 

0999 

REP 

1 



33,3465 

1 3436 

1 


TCP 

OPTDATA +2 

09991 

REP 

1 



33,3466 

0 3530 

1 


TC 

CCNTIN33 

099921 





33,3467 

01236 

1 

VO5N30E 

VN • 

0530 

10136 

REP 

30 

lAST 

438 

33,3470 

0 6006 

1 


TC 

INTPRBT 

1014 





33,3471 

77170 

1 

TAR/EHEP AXT, 1 

AXT, 2 

lOlS 





33,3472 

00002 

0 



2 

1016 





33,3473 

00014 

1 



I2D 

1017 





33,3474 

40331 

1 


SSP 

setpd 

1018 

REP 

3 

LAST 

423 

33,3475 

00052 

0 



S2 

1019 





33,3476 

00006 

1 



6 


USEKoiS PAGE NO. 27 


ES S3 


OPTICAL VERIFICATICN ROUTINE 
ENTERED By VERB 65 ENTER 


CALLS FOR Azimuth and elevation op targe 
T 1 ,THSI target 2 

Azimuth clockvyse prcm north to target 
elevaticn measured from horizontal 


TAZELI TAHCSIT 1 AZIMUTH . 
TAZELl +2 TAROOT 2 AZIMUTH 

MPAC 1ST PASSrO 2ND PASS=2 




UNDYNAMIC ASSEMDIiOR 
target VECTOR 

SINIEl,) -COS(AZ)COS(RL) SINCAzICOStEL 
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1020 





33,3477 

00001 

0 



0 

1021 





33,3500 

60533 

1 

TARI 

SLOVD* SR2 

1022 


3 

LAST 

442 

33,3501 

02436 

1 



TAZBLl +3 

1023 





33,3502 

00001 

0 


STORE 

0 

1024 





33,3503 

77756 

0 


SIN 


1025 





33,3504 

10023 

1 


STCSE 

18D,2 

1026 





33,3505 

77745 

1 


DLOU) 


102T 





33,3506 

00001 

0 



0 

1028 





33,3507 

41546 

0 


COS 

PUSI 

1029 





33,3510 

47133 

0 


SL01D4 RTB 

1030 

RE3? 

4 

LAST 

443 

33,3511 

02435 

1 



TAzELl *2. 

1031 

REP 

4 

LAST 

398 

33,35 1 2 

45510 

1 



csuxnic 

1032 





33,35 1 3 

00003 

1 


STORE 

2 

1033 





33,3514 

41356 

1 


SIN 

CMP 

1034 





33,3515 

00001 

0 



0 

1035 





33,3516 

77752 

1 


SLi 


1036 





33,3517 

10027 

0 


STORE 

22D,2 

103T 





33,3520 

71545 

0 


DLCAD 

COS 

1038 





33,3521 

00003 

1 



2 

1039 





33,35 22 

72405 

0 


DMP 

SLl 

1040 





33,35 23 

76076 

1 


DCCMP 

AXT.l 

1041 





33,3524 

00000 

1 



0 

1042 





33,3525 

10025 

1 


STORE 

20D,2 

1043 





33,3526 

43504 

1 


Tlx, 2 

RVO 

1044 

REP 

1 



33,3527 

67500 

0 



•MHl 

10443 





33,3530 




BANK 

33 

104435 

REP 

4 

LAST 

427 

33,2000 




SEUXC 

MJCAL 

10444 





33,3530 




bank 


104445 

REP 

1 







COUNT* $$/P03 

10445 

REF 

59 

lAST 

439 

33,3530 

3 4712 

1 

C(NTIN33 CA 

ore 

10446 

REP 

3 

LAST 

276 

33,3531 

54 735 

1 


TS 

SIARCCDB 

1044T 

REP 

102 

LAST 

439 

33,35 32 

3 4714 

1 


CA 

zero 

10448 

REP 

1 



33,35 33 

0 3625 

0 


IC 

TARCamvE 

10449 

R®^ 

31 

LAST 

442 

33,3534 

0 6006 

1 


TC 

INTPHET 

104492 





33,3535 

77624 

1 


CALL 


104494 

RESP 

1 



33,3536 

67471 

1 



TOR/EREE 

104496 





33,3537 

64375 

1 

NEXTBNKS VIX»D 

MXV 

1045 





33,3540 

00007 

0 



6D 

104T 

RE3P 

28 

LAST 

438 

33,3541 

02672 

0 



XS4 

104T1 





33,3542 

77772 

0 


VSLl 


1048 

REP 

3 

LAST 

93 

33,3543 

26736 

1 


STOVL 

SIARAD 

1049 





33,3544 

00015 

0 



I 2 D 

1050 





33,3545 

76521 

0 


MXV 

VSLl 

1051 

REF 

29 

LAST 

443 

33,3546 

02672 

0 



XS4 

1052 

REP 

4 

LAST 

443 

33,3547 

02744 

1 


STORE 

SIARAD +6 

1053 





33,3550 

77624 

1 


CALL 


1054 

mF 

1 



33,3551 

67722 

1 
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1060 

. RSP 

1061 


1062 

RSP 

1063 

REF 

1069 

REP 

1070 

REF 

1071 

REP 

1072 

REF 

1073 

REP 

1074 


1075 

REF 

10751 


10752 

REF 

10753 


10754 

REP 

10755 


10756 

REF 

10757 


1076 

REP 

1077 

REF 

1078 

REF 

1079 

REF 

1080 


1081 

REP 

1082 

REF 

1083 


1084 

REF 

1085 

REF 

1086 

REF 

1087 


1088 

REF 

1089 

REF 

10895 

REP 

10896 

REF 

1090 

REF 

1091 


1092 

REF 

1093 


1094 

REF 

1097 


1098 

REF 

1099 


1100 

REF 

11001 


11002 

REF 


4 

LAST 

434 

33,3552 

02414 1 


STORE 

LQSVBC 


LAST 


33,3553 

77776 1 


EXIT 


75 

442 

33,3554 

0 4555 0 


IC 

EANJcCALL 

3 

LAST 

442 

33,3555 

16063 0 


CADR 

KXESLEAS 

27 

LAST 

442 

33,3558 

3 4711 1 

nbxbnkss cap 

ICO 

4 

LAST 

443 

33,3557 

54 735 1 


TS 

SIAECCI* 

16 

LAST 

409 

33,3580 

3 6211 0 


CAP 

SIX 

2 

LAST 

443 

33,3561 

0 3625 0 


TC 

WHURVE 

32 

LAST 

443 

33.3562 

0 6006 1 


TC 

intpbst 




33,3563 

77624 1 


CALL. 


2 

LAST 

443 

33,3564 

67722 1 



litilsi® 


LAST 


33,3565 

24015 0 


STCVL 

l?p 

5 

444 

33,3566 

02414 1 



LOSVEC 




33,3567 

34007 1 


S7CALL OSD 

1 



33,3570 

47334 0 



AxISGBl 




33,3571 

77624 1 


CALL 


1 



33,3572 

47140 1 



CALCGlA 




33,3573 

77776 1 


EXIT 


1 

lAST 


33,3574 

3 3621 1 

GCCMP4 

CAP 

VO6N93S 

76 

444 

33,3575 

0 4555 0 


TC 

BA.'IXCALL 

5 

LAST 

442 

33,3576 

20624 0 


CADH 

GOFLAai 

2 

LAST 

442 

33,3577 

0 3610 0 


TC 

OCCMPS 




33,3600 

1 3602 1 


TCP 

♦2 

1 



33,3601 

1 3574 0 


TCP 

OCCMPa 

33 

LAST 

444 

33,3602 

0 6006 1 


TC 

intphet 




33,3603 

53375 0 


VLCttD 

VAD 

11 

lAST 

434 

33,3604 

02760 1 



OGC 

11 

LAST 

438 

33,3605 

02650 0 



EHCCMPi 

12 

LAST 

444 

33,3606 

02650 0 


STORE 

BhCCMPi 




33,3607 

77776 1 


EXIT 


77 

LAST 

444 

33,3610 

0 4555 0 

OCCMPs 

TC 

RASCCALL 

4 

LAST 

444 

33,3611 

16063 0 


CADH 

HCHEIPAS 

22 

LAST 

420 

33,3612 

0 5447 0 


TC 

dcknfiag 

2 

LAST 

226 

33,3613 

00032 0 


ADI«S 

TR403PI^ 

5 

LAST 

442 

33,3614 

0 5243 1 


TC 

NEWACDEx 




33,3815 

00002 0 



02 

18 

LAST 

442 

33,3616 

0 5301 0 


TC 

pkascktg 




33,3617 

00004 0 


OCT 

00004 

57 

LAST 

441 

33,3620 

0 5112 0 


TC 

E!®OFJOB 




33,3621 

015 35 0 

VO6N93S 

VN 

0693 

23 

LAST 

435 

33,36 22 

0 5537 0 

CTSCPTCS TC 

AlABM 




33,36 23 

01602 1 

GTSOPTSS 

OCT 

01602 

3 

LAST 

444 

33,3624 

0 3610 0 


TC 

GCCMPS 




34,2002 



bank 

34 

1 



04,2000 



S3TUX 

K>AJCAL1 


USER.S PAGE NO. 29 E5 S3 
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11003 





04,2617 


bank 



110035 

1 HEP 

1 





COUNT 

34/CCMST 


1119 





04,2617 

62545 1 

LATAzCHK DLOAD 

SL2 

CALLS POR AZIMJIH AND LATITUDE 

1120 

I«P 

4 

LAST 

423 

04,2620 

02403 1 


latiilde 


1121 

REP 

23 

LAST 

442 

04,2621 

15047 0 

STODL 

DSP1E41 +1 


1122 

REP 

3 

LAST 

417 

04,2622 

02401 0 


AZIMHH 


1123 





04,2623 

77434 1 

RIB 

EXIT 


1124 

REP 

3 

LAST 

283 

04,2624 

45543 1 


1ST02S 


1125 

REP 

233 

LAST 

433 

04,2625 

56 154 1 

XCH 

MPAC 


1126 

REP 

24 

lAST 

445 

04,2626 

55«045 0 

TS 

DSPlEMl 


112T 

HEP 

78 

LAST 

444 

04,2627 

0 4555 0 

IC 

bankcall 


1128 

REP 

1 



04,2630 

20807 1 

CADR 

cleandsp 


1129 

REP 

1 



04,2631 

3 2650 0 

CAP 

VNG0641. 


11291 

REP 

79 

LAST 

445 

04,2632 

0 4555 0 

IC 

bankcaii. 


11292 

REP 

6 

LAST 

444 

04,2633 

20624 0 

CADR 

GCFLAaL 


11293 





04,2634 

0 2636 0 

IC 

+2 

NOT AliXWED 

11294 





04,2635 

0 2637 1 

TC 

+2 


11295 





04,2636 

0 2631 1 

IC 

-5 


1130 

REP 

34 

LAST 

444 

04,2637 

0 6006 1 

TC 

intpret 


1131 





04,2640 

47135 0 

SLQAD 

RIB 


1132 

HEP 

25 

LAST 

445 

04,2641 

01046 1 


DSP1B41 


1133 

REP 

5 

LAST 

443 

04,2642 

45510 1 


cdolohic 


1134 

REP 

4 

LAST 

445 

04,2643 

02401 0 

STORE 

AZIMum 


113^1 





04,2644 

60535 1 

SLCWD 

SH2 


11342 

REP 

26 

lAST 

445 

04,2645 

01047 0 


DSPTSMl +1 


11343 

REP 

5 

LAST 

445 

04,2646 

02403 1 

STORE 

lATITCe 


1135 





04,2647 

77616 0 

RYO 



11351- 





04,2650 

01451 0 

VNa0641 VN 

0841 


1136 





33,3625 


bank 

33 


1137 

REP 

5 

LAST 

443 

33,2000 


SETLOC 

IMUCAL 


1138 





33,3625 


bank 



1139 

REP 

2 

LAST . 

442 TO 

443’ 

67 67* 

COUNT* $$/P03 


1140 





33,3625 

0 0006 1 

targdrye Extend 



1141 

HEP 

1 



33,3826 

23«424 1 

QXOI 

OPUC 


1142 

REP 

1 



33,3827 

S5«431 1 

TS 

WRGi/2 


11421 

REP 

35 

I A ST 

445 

33,3630 

0 6006 1 

1C 

intpret 


1143 





33,3631 

77624 1 

CAU, 



1144 

REP 

2 

LAST 

443 

33,3632 

67471 1 


lAR/EREP ■ 


1145 





33,36 33 

76740 0 

ucc.l 

VIXMD* 


1146 

REP 

2 

LAST 

445 

33,3634 

02431 0 


WBOl/2 


1147 





33,3635 

00007 0 


6D,1 


1148 

REP 

10 

LAST 

283 

33,3636 

36766 0 

STCAU; 

star 


1149 

REP 

1 



33,3637 

46053 0 


SXWND 


1150 





33,3640 

77776 1 

EXIT 
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1151 

REF 

6 

LAST 

283 

33,3641 

3 1773 0 


CA 

SAC 

1152 

REP 

4 

LAST 

236 

33,3842 

55«161 1 


TS 

IKSOPTS 

1153 

REF 

6 

LAST 

283 

33,3843 

3 1775 0 


CA 

PAC 

1154 

REF 

5 

LAST 

236 

33,3044 

55«160 0 


TS 

tSSSOPTT 

1155 

REP 

103 

LAST 

443 

33,3845 

3 4714 1 

rbtaro 

CAP 

zero 

1156 

REP 

22 

LAST 

385 

33,3046 

55«303 1 


TS 

OPTIND 

1157 

R^ 

60 

LAST 

443 

33,3047 

3 4712 1 


CAP 

CNE 

1158 

REP 

80 

LAST 

445 

33,3850 

0 4555 0 


IC 

bakxcall 

1159 

REP 

1 



33,3651 

16002 1 


CADR 

sxtmahc 

1160 

REF 

81 

LAST 

446 

33,3852 

0 4555 0 


JC 

banxcall 

1161 

REF 

1 



33,3853 

17512 1 


CADR 

OPTSWU.. 

1162 

REF 

1 



33,3654 

0 3622 1 


IC 

GTStSTCS 

116201 

REF 

11 

LAST 

384 

33,3855 

30 075 0 


CAB 

PLAG;7EDi 

116202 

REF 

1 



33,3656 

7 4707 1 


mask 

TMOSBIT 

116203 

REF 

135 

LAST 

439 

33,3657 

10 000 0 


CCS 

A 

116204 

REF 

4 

LAST 

444 

33,3660 

0 3610 0 


1C 

OCCMPs 

11621 

REF 

26 

LAST 

261 

33,3661 

51*330 0 


INDEX 

MARKSDAT 

11622 

REF 

8 

LAST 

259 

33,3662 

3 0052 0 


CA 

QPHET 

11623 





33,3663 

0 0006 1 


EXTEND 


11624 

REF 

1 



33,3664 

1 3666 0 


BzP 

i®DARGi 

1163 

REF 

2 

LAST 

445 

33,3685 

0 1424 1 


1C 

OPLAC 

1164 

REF 

104 

LAST 

446 

33,3666 

3 4714 1 

RETARGi 

CA 

ZERO 

1165 

REF 

27 

LAST 

446 

33,3667 

57*330 0 


XCK 

MAHCSWT 

1166 

REP 

136 

lAST 

446 

33,3670 

10 000 0 


CCS 

A 

1167 

REP 

137 

LAST 

446 

33,3671 

50 000 1 


INDEX 

A 

1168 

REF 

138 

LAST 

446 

33,3672 

54 000 0 


TS 

A 

1169 

REF 

1 



33,3673 

1 3645 1 


TCP 

RBBABG 

1170 





33,3674 



bank 

33 

1171 

REF 

6 

LAST 

445 

33,2000 



afiLoc 

MJCAL 

1172 





33,3674 



BANK 


1173 

REP 

3 1 

LAST 445 TO 

446’ 

39 106* 


ccum $$/P 03 

1200 





33,3674 

30341 1 

PIPASC 

2DEC 

-76376833 

1200 





33,3675 

22444 0 




1201 





33,3676 

57223 0 

VEl.SC 

2DEC 

-.52223476 

1201 





33,3677 

66451 1 




1202 





33,3700 

05427 0 

ALSK 

2DGC 

.17329931 

1202 





33,3701 

12577 1 




1203 





33,3702 

77567 0 


ZOGC 

-.00835370 

1203 





33,3703 

44202 1 




1204 





33,3704 

24276 1 

georgrj 

ZDEC 

.63661977 

1204 





33,3705 

14066 1 




1205 





33,3706 

23073 1 

GEORCSK 

2DEC 

.59737013 

.1205 





33,3707 

11773 1 




1206 





33,3710 

00055 1 

2DEGRES 

ZDEC 

.00277778 

1206 





33,3711 

20267 0 




1207 





33,3712 

03146 1 

GBOCCNSl 

2DEC 

-1 

1207 





33,3713 

14632 0 





RELEASE PREVICUSI,y GRABBED VAC AREA 


GO DO SXTMAHic AGA IN 


I 
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I 


1208 





33,3714 

00121 0 

GEOCQ4S2 2DEC 

.005 

1208 





33,3715 

35341 1 



1209 





33,3716 

01767 0 

GEOtXNSO 2DEC 

.062 

1 1209 





33,3717 

31666 0 



1210 





33,3720 

00004 0 

GEOCCNS4 2C®C 

.0003 

1210 





33,3721 

35223 1 



1252S 

HEP 

3 LAST 

438 TO 

1 442’ 

146 288^ 

COET 

33 /PO 2 

1253 





33,3722 

77620 0 

LITILSUa STO 


1254 

HEP 

3 

LAST 

446 

33,3723 

02424 1 


QPLAC 

1255 





33,3724 

76740 0 

LXC.l 

VU»D* 

1258 

HEP 

28 

lAST 

446 

33,3725 

01330 0 


MAHKSIAT 

1257 





33,3728 

00003 1 


2,1 

1258 

HEP 

4 

LAST 

73 

33,3727 

34767 0 

SlCALL CDUSPOT 

1 1259 

HEP 

1 



33,3730 

46000 0 


SDCINB 

1 1260 





33,3731 

77624 1 

CALL 


1261 

HEP 

1 



33,37 32 

47572 1 


THG+NBS4 

1262 





33,3733 

77650 1 

GOTO 


1 1263 

HEP 

4 

LAST 

447 

33,3734 

02424 1 


QPLAC 

1285 





33,3735 

77778 1 

EXIT 


1 1300 

HH' 

36 

LAST 

445 

33,3736 

0 6006 1 

A2rfIHOOi TO 

INTPHET 

1301 





33,3737 

47145 1 

DLOVD 

BIB 

1302 

BPS' 

3 

LAST 

439 

33,3740 

02636 0 


NEWA2M1H 

1 1303 

HEP 

4 

LAST 

445 

33,3741 

45543 1 


ISTO 2 S 

1304 





33,3742 

77776 1 

Exit 


1305 

HEP 

234 

LAST 

445 

33,3743 

56 154 1 

XCH 

MPAC 

1306 

BBP 

27 

LAST 

445 

33,3744 

55«045 0 

TS 

DSPTEMi 

1307 

PEP 

82 

LAST 

446 

33,3745 

0 4555 0 

7C 

bankcall 

1308 

BBP 

2 

LAST 

445 

33,3746 

20607 1 

CADH 

CLEANDSP 

1309 

BBP 

1 



33,3747 

3 377 1 0 

CAP 

VN0629 

1310 

REP 

83 

LAST 

447 

33,3750 

0 4555 0 

IC 

bankcall 

1311 

RgP 

7 

LAST 

445 

33,3751 

20624 0 

CADB 

GOFLASH 

1312 





33,3752 

1 3754 0 

ICP 

♦2 

1313 





33,3753 

1 3755 1 

TCP 

♦2 

1314 





33,3754 

1 3747 1 

TCP 

-5 

1315 

REP 

37 

LAST 

447 

33,3755 

0 6006 1 

ic 

INTPHET 

1316 





33,3758 

47135 0 

SIXMD 

RIB 

1 1317 

REP 

28 

LAST 

447 

33,3757 

01046 1 


DSPIE41 

1318 

REP 

6 

LAST 

445 

33,3760 

45510 1 


raiOLOGIC 

1319 

REP 

. 4 

LAST 

438 

33,3761 

02634 1 

STORE 

LAUNCHAZ 

1320 





33,3762 

77776 1 

EXIT 


1 1321 

REP 

105 

lAST 

446 

33,3763 

3 4714 1 

CA 

ZERO 

1322 

REP 

5 

LAST 

439 

33,3764 

55«832 0 

TS 

PBE4TRXC 

1 1323 

(EF 

19 

LAST 

444 

33,3765 

0 5301 0 

1C 

PHASCMNG 

1324 





33,3766 

00004 0 

OCT 

00004 

1325 

REP 

35 

LAST 

440 

33,3767 

0 4574 0 

1C 

POSTJLMP 

13255 

( 

REP 

5 

LAST 

362 

33,3770 

21176 1 

CADH 

PINBRNCH 

1326 





33,3771 

01435 1 

VN0629 VN 

0629 
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L QROUND TBAQCINO IETERMINATICN PR0®AM - P21 OSBRaS PACE NO. 1 BO S3 

POOOl ORCmi TRACKINO IETERMINATION program P21 

R0002 program lESCaiPTION 

R0003 MOD NO - 1 

R0004 MOD BY - N.M.NBYILLE 

R0005 functional DECRIPTION- 

R0006 

B0007 TO PRCVK® THS ASTRONAUT DBTAII,S OP THE LM OR CS4 t®OUND TRACK WITHOUT 
B0009 THE NEED FOR GROUND CCMMUNICATION (REOUESTHl BY DSKY) . 

R0009 CALLING SEQUENCE - 
ROOlO 

ROOll • astronaut request THROUCH DSKY V 37E21E 

BOOlZ subroutines CALLHJ- 

R0013 

R0014 OOPERF4 

R0015 (XFLASH 

R0016 THISPHEC 

R0017 (TIHPREC 

R0018 LAT-LONG 

R0019 NORMAL EXIT MODBS- 

ROO2O 

R0021 ASTRONAUT RECXJEST TRCXJGH DSKY TO TERMINATE PROGRAM V34E 

R0022 alarm cr abort Exit modes- 
R0023 

R0024 NONE 
R002S OUTPUT - 
R0026 

R002T OCTAL DISPLAY OP OPTION CODE AND VHHiaE WHOSE GRCtND TRACK IS TO BE 
R0028 CXMPUIED 

R0029 OPTION CODE 00002 

R0030 THIS 00001 

R0031 OlHER 00002 

B0032 decimal DISPLAY OP TIME TO BE INTEGRATPD TO HOURS , MINUTES , SECONDS 
R0033 decimal DISPLAY OP LAT, LONG, ALT 
R0034 ERASABLE INITIALIZATION REQUIRED 
R0035 


B0036 

R003T 

AXO 

2DEC 

4.652459653 B-s 

RADIANS E68-69 CONSTANTSA 

R0038 

R0039 

-AYO 

2 Dec 

2.147535898 B-5 

RADIANS 

B0040 

AZO 

ZDEC 

.7753206164 

RBvauTICNS 

B0041 

R0042 

FOB LUNAR ORBITS 504LM VECTOR IS NEEDED 

R0043 

R0044 

504LM 

2DEC 

-2.700340600 E-s 

RADIANS 

R0045 

R0046 

504IA( 

2 2DEC 

-7.514128400 B-4 

RADIANS 

R0047 

504tAI 

4 ZDEC 

2.553198641 E-4 

RADIANS 


R0048 

H0049 none 
R0050 debris 
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B0051 

R0052 CENTOALS-A,Q,L 

■R0053 OIHEH-IKOSS USED BY THE ABOl/E LISTED SUBROLTriNES 
R0054 SEE LEMPKBC,LAT-LQN0 
0055 REP 3 LAST 2T9 30,2000 


0055 

REP 

3 

LAST 

279 

0056 





0057 

REP 

1 



0058 





0059 

REP 

3 

LAST 

256 

0060 

REF 

1 



0061 

REP 

61 

LAST 

446 

0062 

REP 

2 

LAST 

276 

0063 

REF 

21 

LAST 

369 

0064 

REP 

B4 

LAST 

447 

0065 

REP 

1 



0066 

REF 

3 

LAST 

385 

0067 





0068 





0069 

REP 

1 



0070 

REF 

85 

LAST 

450 

0071 

REP 

e 

LAST 

447 

0072 

REP 

4 

LAST 

450 

0073 





0074 





0075 

REF 

38 

LAST 

447 

0076 





0077 

REP 

29 

LAST 

447 

0078 

REF 

4 

LAST 

450 

0079 





0080 

REP 

3 

LAST 

450 

0081 

REP 

1 



0082 





0083 

REP 

1 



0084 

REP 

5 

LAST 

450 

0085 

REP 

2 

LAST 

204 


SBANKz LOWSUPEH 


REP 1 
REP 1 
REP 1 


HEP 6 lAST 450 
REP 3 LAST 450 
REP 1 




33.3T72 

3T,2000 

37,2001 


37.2001 

37.2002 

37.2003 

37.2004 

37.2005 

37.2006 
37, .2007 

37.2010 

37.2011 

37.2012 

37.2013 

37.2014 

37.2015 
37,2018 
37,2017 

37.2020 

37.2021 

37.2022 

37.2023 

37.2024 

37.2025 

37.2026 

37.2027 

37.2030 

37.2031 

37.2032 

37.2033 

37.2034 

37.2035 

37.2036 

37.2037 

37.2040 

37 . 2041 
37', 2042 

37.2043 

37.2044 

37.2045 


bank 33 
SETLOC P20S 

rank 


EBANK= P21TIME 
COUNT 24/P21 


3 4712 1 
55«132 1 
3 4711 1 
0 4555 0 
20761 0 
0 4106 1 
0 2011 0 
0 2003 0 
3 2102 0 
0 4555 0 
20624 0 
0 4106 1- 

0 2017 0 
0 2011 0 
0 6006 1 

77745 1 
01048 1 
02316 1 
45335 0 
01133 1 
36100 0 
71230 0 
76042 0 
02316 1 
34041 0 
27038 1 
46135 1 
00050 1 
76050 0 
43175 0 

00001 0 
01423 0 
76053 0 
77745 1 
02316 1 
34041 0 
27022 1 


PR0021 CAP 
TS 
CAP 
TC 

CADR 

TC 

TC 

TC 

P21PRCX51 CAP 
TC 

CADR 

TC 

TC 

TC 

TC 

DLQAD 


CNE 

OPTICN2 

BIT2 

BANKCAIi 

GOPERP4 

OOTOPOCH 

+2 

-5 

V6N34 
BANKCAIi, 
GOFLASH 
OOTOPOCH 
♦ 2 
-5 

INTPHET 


P21PROGA SI.CAD 


P2IPROG2 D[,OAD 


DSPTEMl 

P21TI.'« 

DSU 

OPTICN2 
P21CNENN 
Dl-CMD 
P21PRCX?2 
pziTim 
- TOECi 
OIHPREC 
BHIZ 
X2 

P21PROG3 

SETGO 

RATT 

IHNAPIAO 

P2IPHOG4 


P21TI,ME 

TDECi 

THISPREC 




20’35 OCT. 28,1968 SMOOCH .007 PACE 450 
USEHocS page no. 2 Eo S3 


POH LOW 2CADR«S. 


ASSUMED vehicle IS LM , R2 = 00001 
OPTICN 2 


terminate 

PROCEED VAIhE OF ASSUMED VEHICLE CK 

R2 LCADED THRCXXH DSKX 

LCMD DESIRED TIME OP LAT-IXHG. 


TERM 

PHOCEH) vAIHES CK 
TIME LOADED THRCUCH DSKY 




VEHICLE TO BE INTEGRATED IS lEM 
vehicle TO BE INTEGRATED IS CSM 

integrate to time specified in TDEC 
ADJUST UNITS FOR LAT-LCNG ROUTINE 
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0098 





37,2046 

77650 

X 

ooro 



0099 

IBP 

1 



3T,204T 

76033 

0 


PaiPROOA 


0100 





3T,2050 

43175 

0 

P 2 IPBOO 3 VLQAD 

CLEAR 


0101 

HBP 

2 

LAST 

450 

37,2031 

00001 

0 


RATT 


0102 

HBP 

2 

lAST 

450 

37,2052 

01663 

0 


UKAFLAO 


0103 

RBP 

2 

LAST 

8 T 

37,2053 

16152 

0 

P 21 PRQO 4 STOOL 

ALPHAV 


0104 

RESP 

1 



37,2054 

00015 

0 


WT 


OIOS 





37,2055 

45014 

0 

CLEAR 

CALL 


0106 

HBP 

1 



37,2056 

00662 

0 


ERADPLAO 


OlOT 

HEP 

1 



37,2057 

26322 

0 


lAT-LCNO 


0108 





37,2060 

77776 

1 

EXIT 



0109 

HBP 

1 



37,2061 

3 2101 

0 

CAP 

VO 6 N 43 

DISPLAY LAT,LCNa,ALT 

0110 

HBP 

86 

LAST 

450 

37,2062 

0 4555 

0 

TC 

BANXCALL 

LAT.LCNa =1/2 REVS Bq 

0111 

HEP 

9 

LAST 

450 

37,2083 

20624 

0 

CADR 

GOPlASf 

alt = km Bi4 

0112 

HEP 

5 

LAST 

450 

37,2064 

0 4106 

1 

TC 

GOTOPOOI 

lElM 

0113 

BH' 

6 

LAST 

451 

37,2065 

0 4106 

1 

1C 

GOrWOCH 


0114 

REP 

39 

LAST 

450 

37,2066 

0 6006 

1 

1C 

INTPRBT 

V32B RECYCLE 

0115 





37,2067 

43345 

1 

DLOVD 

DAD 


0116 

REP 

T 

LAST 

450 

37,2070 

02316 

1 


P21TIi« 


OUT 

REP 

1 



37,2071 

36076 

0 


6 OOSEC 

600 SECONDS OR 10 MIN 

0118 

HEP 

30 

LAST 

450 

37,2072 

01046 

1 

STCBE 

DSP1E41 


0119 





37,2073 

77634 

0 

RIB 



0120 

REP 

1 



37,2074 

78011 

0 


P 21 PBOO 1 


0121 





37,2075 

00003 

1 

600SEC 2 OGC 

60000 

10 MIN 

0121 





37,2076 

25140 

0 




0122 





37,2077 

00001 

0 

PaiCNEfW OCT 

00001 

NEEDED TO DETERMINE vmiCLE 

0123 





37,2100 

00000 

1 

OCT 

00000 

TO BE integrated 

0124 





37,2101 

01453 

1 

VO 6 N 43 VN 

00643 


012S 





37,2102 

01442 

1 

V 6 N 34 VN 

00634 
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P34-P35, P74-PT5 


USEH«S PAGE NO. 


transfer phase INITIATICN (TPI) programs (P 34 AND P 74 ) 


MOD NO -1 UH SECtICN - P32-P35. P72-PT5 

MOD BY WHITE. P DATE iJUNEsT 


( 1 ) TO CAIAAATE the required delta V AND OTHER INITIAL CCNDITICNS 
REOUIRHl BY THE ACTIVE VEHICLE FCKl ExECuTICN OP THE THANSFER 
PHASE INITIATICW (TPI) MANEUVER, GIVEN - 


(A) time op IGNITICN tig (TPI) OR THE ELEVATION ANGLE (E) OP 
THE ACtIVB/PASSIVE VEHICLE LOS AT TIG (TVI). 


(B) CENTRAL ANGSE OP TRANSFER (CENTANO) PRCM TIG (TPI) TO 
intercept time (tig (TPP)). 


( 2 ) TO CAIAJLATE tig (TPI) GIVEN E OR E GIVEN TIG (TPI). 


( 3 ) TO CAIXiXATE THESE PARAMETERS BASED UPCN MANEUVER DATA 
APPRCWED and keyed INTO THE DSKY BY THE ASTRCNAUT. 


( 4 ) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT 
VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE 
ASTRCNALT/GROUND . 


( 5 ) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED 
THRUSTING PROGRAM. 


ASSLMPTICNS 


( 1 ) LM ONLY - THIS PROGRAM IS BASED IPCN PREVIOUS CCMPLBTICN OP 
THE CCNSTANT DELTA ALTITUDE (CDH) PROGRAM (P 33 /P 73 ) 
THEREFORE - 


(A) AT A selected TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT 
BEIWHEN THE ACTIVE AND PASSIVE VEHIC1£S WAS SELECTED TO BE 
A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FPGM THE 
HQRIZOnAL PLANE DEFINED BY THE ACTIVE VEHHTLE POSITICN. 


(B) THE TIME BETWEEN CDH IGNITICN AND TPI KNITICN WAS 
CCMPUIED TO BE GREATER THAN 10 MINUTES. 


(C) the VARIATICN OF THE ALTITUDE DIFFERENCE BBIWffil THE 

orbits WAS minimized. 


(D) the PBRICENTER altitudes OP ORBITS FaiX)WING CSI AND 


GDH WERE (XMPUTED TO BE GREATER THAN 35,000 FT FDR UNAR 
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L P34-P35, P74-P75 USER«S PACE NO. 2 EO S3 

R0043 ORBIT OR 85 IM POR EARIH ORBIT. 

R0044 (E) THE CSI AND OM MANEUVERS WERE ASSUMED TO BE PARALLEL TO 

R0045 . THE PLANE OP IKS PASSIVE VEHICLE OTiBIT. HOWEVER, CREW 

R0046 MCDIPICATION O? DELTA V (LV) CCMPCC®4TS MAY HAVE RESULTED 

R004T IN AN OUT-OP-PLANE MANEUVER. 

R004B f 2) STATE VECtCS UPDATED BY P27 ARE DISALLOWED DURING AUTCMATIC 

R0049 state vector UPDATING INITIATED BY P20 <SSE ASSUMPTICN ( 4 )). 

BO050 (3> THIS PROGRAM HIST BE DONE OVER A TRAC^INO STATICH FOR REAL 

R0051 TM ground participation in data input and output. CCMPUIED 

110052 VARIABLES MAY BE STCSOT FOR LATER VERIPICATICN BY THE GROUND. 

ROOSS these storage capabilities Are limited only to the PARA^ETEHS 

R0054 FOR CNE THRUSTING MANEUVER AT A TI^E EXCEPT FOR CONCENTRIC 

B0055 FLIGHT PLAN MANEUVER SEOLENCES. 

R0056 U) THE HENDB2VOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM 

ROOST OH CSW STATE VE<TTOaS FOR THIS PROGRAM. IF RADAR USB IS 

ROOSe DESIRED THE RADAR WAS TURNED CN AND LOCKED CN THE CSW BY 

H0059 PHEVIQUS SELECtICN OF P20. RADAR SIGHTING MARCS WILL BE MADE 

R0060 AUTCMATICALLY APPRC6CIMATBLY CNCE A MINUTE WHEN ENABLED BY THE 

ROOSI TBACic and UPDATE FLAGS <SEE P 20 ). THE RENDEZVCUS TRACKING 

B0062 mark counter IS ZEROBD BY THE SELECTION OP P 20 AND AFTER EACH 

H0063 THRUSTING MANEUVER. 

R0064 ( 5 ) THE ISS NEED NOT BE CN TO COMPLETE THIS PR0GRA.M. 

(6) THE OPERATION OP THE PROGRAM UTILI 2 ES THE POUDWINO FLAGS - 

active vehicle flag - DESIGNATES THE VEHICLE WHICH IS 
DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH 
calculates the MANEWER parameters, set at the START OP 
EACH RENDEZVOUS PJ®-THBUSTINa PROGRAM. 

ROOTO PINAL FLAG - SELECTS PINAL PROGRAM DISPLAYS AFTER CREW HAS 

ROOTl SELECTED THE FINAL MANEUVER CCNPUTATICN CYCLE. 

R00T2 EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING 

ROOT3 required FOR EXSCUTICN OF THIS MANEUVER BY THE THRUSTING 

HO0T4 PROGRAM SELECTH) AFTER CCMPLBTICN OP THIS PROGRAM. 

ROOTS <T) CNCE THE PARAMETWRS REQUIRED FOR CCMPUTICN OP THE MANEUVER 

ROOTS HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OP THE ACTIVE 

BOOTT VEHICLE (TENTBAL ANOE OP TRANSFER IS COMPUTED AND STORED. 

ROOTS THIS NLMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT 

ROOTS THROUGH THE USE OP VoeNsZ. 

R0080 THE ASTRONAUT WILL CAIL THIS DISPLAY TO VERIFY THAT THE 

H0081 CENTRAL ANGIE OP TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN 
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P 34 -P 35 , PT4-P75 USEH«S page NO. 3 Eo S 3 

K0082 170 TO 190 D2GjE5EBS. IP THE ANGLE IS WITHIN THIS ZCNE THE 

B0083 ASTEKKAur SHOULD REASSESS IKS INPUT TAROSTINO PARAKE 1 BH 3 BASED 

B0084 UPON DELIA V AND EXPECTED MANEUVER TIMS. 

B008S (gl THIS PROGRAM IS SELECTED BY THE ASTHCNAUT BY DSKY ENTRY - 

R0086 P 34 IF THIS VEHICLE IS ACTIVE VEHICLE. 

BOOST P74 IF THIS VEHICLE IS PASSIVE vailCLE. 

R0088 INPUT 

R0089 (1) Tn>I TIKE OP THE TPI MANEUVER 

R0090 (2) BLEV desired LOS ANCEE AT TPI 

B0091 ( 3 ) CENTANG ORBITAL CENTRAL ANGLE CF THE PASSIVE VHIICLE DURING 

B0092 transfer FROM TPI TO TI1« OP INTERCEPT 

B0093 OUTPUT 

R0094 ( 1 ) TRKPKCNT NLMffiR OP MARKS 

R0095 f2> TTOGO TIME TO GO 

Rd096 < 3 ) tMOA MIDDLE GIKBAL ANGUS 

B009T (4> TTPI CCMPUIED TIME OP TPI MANEUVER 

R0098 OR 

■>0099 ElEV CCMPUIED LOS ANGLE AT TPI 

•iOlOO (5> POSTTTI PERIGEE ALTITLDE AFTER THE TPI MANEUVER 

HOlOl ( 6 1 DELVTPI MAGNITUDE OF DELTA V AT TPI 

R0102 ( 7 ) DELVTPF MAGNITLDE OP DELTA V AT INTERCEPT 

B0103 <8» DVLOS DELTA VELOCITY AT TPI - LINE OP SIQIT 

R0104 ( 9 ) DELVLVC DELTA VEIOCITY AT TPI - LOCAL VERTICAL COORDINATES 

B0105 DOWNLINK 

R0114 (1). TTPI TIME OP THE TPI MANEUVER 

B0115 (2> TIG TIME OF THE TPI MANEINER 

B0118 (3> ELEV DESIRED LOS ANGLE AT TPI 

ROUT < 4 ) CaiTANO ORBITAL CENTRAL ANGl£ OP THE PASSIVE VSIICLB DURING 

Rons TRANSFER FRCN TPI TO TIME OP INTERCEPT 

R0119 < 5 ) DGLVEET3 DELTA VELOCITY AT TPI - REFERENCE COORDINATES 

B0120 (6) TPASS4 TIME OP INTERCEPT 

R0121 CCM4UNICATICN TO THRUSTING PROGRAMS 

R0122 <1) TIG TIME OF THE TPI MANEIAER 

R0123 (2) RTARG OFFSET TARGET POSITION 

B0124 (3> TPASS4 TIME OF INTERCEPT 

B0125 ( 4 ) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATICN 

R0126 SUBROUTINES USED 
BO 127 AVFIAQA 
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L 

P34-P35. PT4-P1 

110128 

AVPLAOP 

R0129 

VNPOOH 

110130 

DISPLACE 

R0131 

SELECiMU 

R0132 

PRECSET 

R0i33 

S 33 / 34 .I 

R0134 

ALARM 

R0135 

bankcall 

110136 

GOPLASI 

R013T 

OOTOPOCH 

110138 

TIMBXHET 

R0139 

S 34 / 35.2 

R0140 

PERIAPOi 

110141 

SlIPTRl 

R0142 

S 34 / 35.5 

H0143 

VN1645 


USIfeS PAGE NO. 4 Eo S3 




0144 

REF 

1 



35,2000 




SBTLOC CSIAJH 

0145 





35,2000 




BAMC 


0146 

REP 

5 

LAST 

249 

E4,1770 




EBANKr 

SUBEXIT 

0147 

REF 

1 







COUNT 

35 /P 3474 

0148 

REF 

1 



35,2000 

0 3726 

1 

P 34 

TC 

AVFLAGA 

0149 

REF 

1 



35,2001 

0 2003 

0 


IC 

P 34 /P 74 A 

0150 

REF 

1 



35,2002 

0 3741 

0 

P74 

IC 

AvPLA(a> 

0151 

REF 

1 



35,2003 

0 3746 

1 

P 34 /P 74 A 

1C 

P 20 FLGCN 

01515 

REF 

1 



35,2004 

3 3125 

1 


Cap 

VO 6 N 37 

0152 

REP 

1 



35,2005 

0 3114 

0 


TC 

VNPOCH 

0153 

REP 

1 



35,2006 

0 3073 

0 


TC 

DISPLAYS 

0154 

HEP 

40 

LAST 

451 

35,2007 

0 6006 

1 


TC 

INTPRBT 

0155 





35,2010 

71214 

0 


clear 

DLC»D 

0156 

REP 

3 

LAST 

48 

35,2011 

01270 

0 



ETPIPLAG 

0157 

HEP 

4 

LAST 

267 

35,2012 

03683 

1 



TTPI 

0158 

REF 

16 

LAST 

267 

35,2013 

17413 

1 


STODL 

TIG 

0159 

REF 

5 

LAST 

275 

35,2014 

03744 

0 



ELEV 

0160 





35,2015 

43054 

1 


BZE 

ser 

0161 

REF 

1 



35,2016 

72020 

0 



P 34 /P 74 B 

0162 

REP 

4 

LAST 

455 

35,2017 

01070 

1 



ETPIPLAG 

0163 





35,2020 

77624 

1 

P 34 /P 74 B CAU, 


0164 

REP 

1 



35,2021 

10718 

0 



SEIECTHJ 

0165 





0032 



DELELO 

eouals 

26D 

0166 





35,2022 

43145 

0 

P 34 /P 74 C DLOAD 

set 

0167 

REF 

2 

LAST 

31 

35,20 2 3 

15332 

1 



2KKVBCS 

0168 

REF 

1 



35,2024 

03461 

1 



ITSAICH 

0169 





35,2025 

43014 

0 


BCN 

Cl EAR 

0170 

REF 

5 

LAST 

455 

35,2026 

01310 

1 



ETPIPLAG 

0171 

REF 

1 



35,2027 

. 72031 

0 



SwCHffiT 

0172 

REP 

2 

LAST 

455 

35,2030 

03681 

0 



itswtch 

0173 

REF 

1 



35,2031 

02364 

1 

SWCHSET 

STORE 

NCKTPI 

0174 





35,2032 

43345 

1 

ifm«)p 

DtEAD 

DAD 


SET UPOAmU, TOACKPLG 
TTPI 

EIEV and CBNIANG 
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01T5 

BSP 

5 

LAST 

455 

35,2033 

03663 1 


TTPI 

OlTft 

RBP 

2 

LAST 

455 

35,2034 

02384 1 


NCKTPI 

OITT 

BSP 

4 

lAST 

450 

35,2035 

34041 0 

SlCALL TDSCi 

01T8 

HHP 

1 



35,2036 

45354 1 


PHBC»r 

01T9 





35,2037 

77624 1 

CAU, 


0180 

BEP 

1 



35 , 2040 

72212 0 


S33/J4.1 

0101 





35,2041 

77454 1 

BZB 

BXIT 

0182 

BEP 

1 



35,2042 

72053 1 


SACKClJl 

0183 


24 

LAST 

444 

35,2043 

0 5537 0 

TC 

ALAIM 

0104 





35,2044 

00611 1 

CCT 

611 

0105 

RBP 

1 



35,2045 

3 4743 0 

CAP 

V05N09 

0180 

REP 

87 

LAST 

451 

35 , 2046 

0 4555 0 

TC 

BANkIMLL 

O10T 


10 

LAST 

451 

35,2047 

20624 0 

CADR 

OOPLAai 

0188 

BEP 

7 

LAST 

451 

35,2050 

0 4106 1 

. 1C 

OOTOPOCH 

0189 

RBP 

2 

LAST 

455 

35,2051 

0 2003 0 

TC 

P34/P7AA 

0190 





35,2052 

0 2043 1 

TC 

-T 

0191 





35,2053 

■ 43014 0 

S»CHCLR BCNCLa BCN 

0192 

RHP 

3 

LAST 

455 

35,2054 

03601 0 


ITSWICH 

0193 

BEP 

1 



35 , 2055 

72032 0 


IN1LOOP 

0194 

REF 

6 

LAST 

455 

35 , 2056 

01310 1 


BTPIPLAG 

0195 

RHP 

1 



35 , 2057 

72063 1 


P34/P74D 

0196 





35 , 2060 

77776 1 

EXIT 


019T 

RH' 

2 

LAST 

455 

35,2061 

0 3073 0 

TC 

DISPLAYE 

0198 

REP 

1 



35,2062 

0 2066 0 

TC 

P 34 /P 74 E 

0199 





35,2063 

77776 1 

P 34 /P 74 D ©(IT 


0200 

BEP 

2 

LAST 

455 

35,2064 

3 3125 1 

CAP 

VO 6 N 37 

0201 

BHP 

2 

LAST 

455 

35,2065 

0 3114 0 

TC 

VNPOCH 

0202 

BEP 

41 

LAST 

455 

35 , 2066 

0 6006 1 

P 34 /P 74 E TC 

INTTRST 

0203 





35,2067 

71201 1 

SBTPO 

DI.CWD 

0204 





35,2070 

00001 0 


OD 

0205 

HEP 

2 

LAST 

124 

35,2071 

03746 1 


RKl 

0208 

REP 

2 

LAST 

434 

35,2072 

14047 1 

srcn^ 

XI 

020T 

RHP 

4 

LAST 

275 

35,2073 

03754 1 


CENTANG 

0200 





35,2074 

71406 0 

puar 

COS 

0209 

BEP 

2 

LAST 

94 

35,2075 

18734 0 

STODL 

CSTH 

0210 





35,2076 

77756 0 

SIN 


0211 

REF 

2 

LAST 

94 

35,2077 

26732 0 

snvL 

SNTH 

0212 

REP 

2 

LAST 

120 

35,2100 

03554 0 


RPASS3 

0213 





35,2101 

77657 0 

vsw' 


0214 





35,2102 

57176 0 


0,2 

0215 

REP 

1 



35,2103 

26657 1 

STCVL 

RVEC 

0216 

RBP 

2 

lAST 

120 

35,2104 

03562 0 


VPASS3 

0217 





35,2105 

43057 1 

VSR* 

S!T 

0218 





35,2106 

57176 0 


0,2 

0219 

REP 

1 



35,2107 

03466 0 


RVSW 

0220 

RH' 

2 

LAST 

94 

35,2110 

36746 1 

SlCAU, 

WEC 

0221 

RHP 

1 



35,2111 

24T37 1 


Tr'«THET 

0222 





35,2112 

T7745 1 

DI,OAD 


0223 

REP 

6 

lAST 

456 

35,2113 

03663 1 


TTPI 
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PROCEED 

V32 


DISPLAY TTPI 

DISPLAY ELBV AND CEN1«>«J 

TTPI 
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0224 

REF 

2 

LAST 

121 

35,2114 

035 0 3 

1 

STORE 

INTIME 

0225 





35,2115 

77615 

0 

QAO 


0226 

REF 

1 



35,2116 

00037 

0 


T 

022T 

REF 

4 

LAST 

171 

35,2117 

37656 

0 

SlCALL, TPASS4 

0228 

REF 

1 



35,2120 

72534 

0 


334 / 35.2 

0229 





35,2121 

51575 

1 

VLCAD 

ABVAL 

0230 

REF 

4 

LAST 

171 

35,2122 

03646 

0 


DeLVEET3 

0231 

REF 

4 

LAST 

275 

35,2123 

26635 

0 

STCVL 

DELVIPI 

0232 

REF 

2 

LAST 

121 

35,2124 

03640 

0 


VPASS4 

0233 





35,2125 

51451 

0 

VSO 

ABVAL 

0234 

REP 

3 

LAST 

121 

35,2126 

03620 

0 


VTPHIMB 

0235 

REP 

4 

LAST 

275 

35,2127 

26637 

1 

STOVL 

DGLVTTP 

0236 

REP 

3 

LAST 

120 

35,2130 

03540 

0 


RACT3 

0237 





35,2131 

45115 

0 

PDVL 

CALL 

0238 

HEP 

3 

LAST 

121 

35,2132 

03612 

1 


ViPRIi* 

0239 

lEF 

1 



35,2133 

45312 

0 


PERIAPOi 

0240 





35,2134 

77624 

1 

CALL 


0241 

REP 

1 



35,2135 

45422 

1 


SHIFTOl 

0242 

REP 

2 

LAST 

275 

35,2138 

16641 

0 

STOOL 

POSTTPI 

0243 

RET 

7 

LAST 

456 

35,2137 

0366 3 

1 


TTPI 

0244 

REP 

17 

LAST 

455 

35,2140 

034 1 3 

1 

STORE 

TIG 

0245 





35,2141 

77776 

1 

EXIT 


0246 

REF 

1 



35,2142 

3 3127 

0 

CAP 

V06N58 

0247 

REP 

3 

LAST 

456 

35,2143 

0 3114 

0 

IC 

VNPOCH 

0248 

REF 

42 

LAST 

456 

35,2144 

0 6006 

1 

TC 

INTPRET 

0249 





35,2145 

77624 

1 

CALL 


0250 

REP 

1 



35,2146 

72742 

0 


S 34/35 .5 

0251 





35,2147 

77624 

1 

CAIL 


0252 

REF 

1 



35,2150 

73005 

0 


VN1645 

0253 





35,2151 

77650 

1 

GOTO 


0254 

REF 

1 



35,2152 

72022 

1 


P 34 /P 74 C 


FOR INIIVEL 

RBffiEZVOUS TI* 
FOR INITVa. 
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110258 purpose 


R0259 

R0260 

R0261 

R02B2 

R0263 

R0264 

R0265 

R 02 e 6 

R0287 


( 1 ) TO CAIAJLATE the leauIRHD delta V AND OIHBR INITIAL CCNDITICNS 
REQUIRED BY IKS ACTIVE VSIICLE FOR BYECutICN QE THE NEXT 
MIDCOJRSE CORRKITICN OP THE TRANSFER PHASE OP AN ACTIVE 
VEHICLE RENDEZVOUS. 

( 2 ) TO DISPLAY TO IKE ASTRCNAUT AND THE OROLND CERTAIN DEPENDENT 

variables associated with the maneuver for approval by the 
ASTRCNA ur/GROlM) . 

( 3 ) TO STORE THE TR1 TARCBT PARA.METEHS FOR USE BY THE DESIRED 
THRUSTING PROGaW. 


R0268 ASSUMPTIONS 

B0269 (D THE ISS NEED NOT BE (N TO COMPLETE THIS PROGRAM. 

R0270 (2) state vector UPDATES BY P2T ARE DISALLOWED DURING AUTOMATIC 

R0271 state vector UPDATING INITIATED BY P 20 (SEE ASSUMPTION ( 3 )). 

R0272 ■ ( 3 ) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CS4. THIS WAS 

R02T3 DONE RJRINO PREVIOUS SELECTION OF P 20 . RADAR SIGHTING MARKS 

R02T4 WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN 

R02T5 ENABLED BY THE TRACK AND UPDATE FLAGS (SFE P20). THE 

R02T6 RENDEZVOUS TRACKING MAR( COUNTER IS ZEROED BY THE SELECTION OF 

B0277 P20 and AFTER EACH THRUSTING MANEUVER. 

R0278 ( 4 ) THE OPERATION OP THE PROGRAM UTILIZES THE FOLLOWING FLAGS - 

R02T9 active vehicle FLAG - DESICNATES THE VEHICI.E WHICH IS 

R0280 DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH 

R0281 CALCHLATBS IKS MANEUVER PARAMETERS. SET AT THE START OP 

R0282 EACH RENDEZVOUS PRE-THBUSTINO PROGRAM. 

R0283 final FLAG - SSECTS FINAL PROGRAM DISPLAYS APIER CrEw HAS 

R0284 selected THE FINAL MANEUVER CCMPUWTICN CYCLE. 

R0285 EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OP STEERING 

B0286 REQUIRED FOR ExFXHTICN OF THIS MANEUVER BY THE THRUSTING 

BO 28 7 PROGRAM SELECTED AFTER COMPLETION OP THIS PROGRAM. 

H0288 ( 5 ) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS 

R0289 CCNPLBTICN OP THE TRANSFER PHASE INITIATION (TPI) PROGRAM 

H0290 (P 34 /P 74 ) and is presently AVAILABLE IN STORAGE. 
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fg) ONtS THB PARAMETERS RECSUIHaJ FOR CCMPOTICN OP THE mNEUVEH 

HAVE Bsaf completely specified, the value op the active 

VBIICLE CENTRAL ANtEE OP TRANSFER IS CCMPUIED AND STOHH). 
THIS NItEER WILL BE AVAILABLE FOR DISPLAY TO THE ASTOCNAirT 
THROUGH THE USE OP V06N52. 


THE ASTRCWAur WILL CALL THIS DISPLAY TO VERIFY THAT THE 
tSnsAL ANGLE OP TRANSFER OP THE AOpiVE VHHICLE IS NOT WITHIN 
ITO TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZCNE THB 
ASTRCHAUr SHOULD REASSESS THB INPUT TARIETINO PARAJ®IEHS BASH) 
UPON delta V AND EXPECTED MANEUVER TIMS. 


R0301 

C?) THIS PH0C5EWM IS SELfX?lH) BV THE ASTRCNAUT BY DacY B^TRY - I 

1(0302 

P35 

IF THIS vailCLE IS ACTIVE VEHICLE. 

II0303 

PT5 

IF THIS VEHICLE IS PASSIVE VSIICLE. 

B0304 

INPUT 


1(0305 

ID TPASS4 

TIME OP intercept - SAVED FRCM P 34/P74 

1(0308 

OUTPUT 

I(030T 

(1) TRKMGCNT NUfflBR OP MARKS I 

R030a 

(2) TTOGO 

Tit® TO GO 

i(0309 

<3> ♦«» 

MIDDLE GIMBAL ANGLE 

R0310 

<4) DVLOS 

delta velocity at mid - LINE OP SKUT 

BOSH 

<S) DELVLVC 

delta velocity at mid _ LOCAL VERTICAL COORDINATES 

1(0312 

DOUNLINK 


80325 

(1) TIG 

TIME OP the TPM MANEUVER 

80326 

<2) DBLVEKTS DELTA VELOCITY AT TPM - RePBRB?^CB COORDINATES 1 

8032T 

(3) TRASS4 

TIME OP intercept I 

80328 

CCPWJNICATICN TO THRUSTING PROGRAM.S 

80329 

(1) TIG 

TIME OP the TPM MANEUVER 

80330 

(2) RIVARO 

OFFSET TARCTIT POSITION 

80331 . 

(3) TPASS4 

TIME OP INTERCEPT 

80332 

I4) XDELVFLG RESET TO INDICATE LAfCERT (AIMPOINT) VG CCMPUTJATICN 

80333 

SlFBOUTINES USED 


80334 

AVFLAGA 


80335 

AVFLAGP 


80338 

LQADTIME 


8033T 

SELEUINU 


80338 

PRECSBT 


80339 

S34/35.I 


80340 

S34/35.2 
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334/35 .5 
VN1645 


0343 

REF 

1 






COUNT 

35/P35T5 

0344 

REF 

6 

LAST 

202 

E4,1763 



EaANK= 

KT 

0345 

REF 

2 

LAST 

455 

35,2153 

0 3726 

1 P35 

IC 

AVPLAQA 

0346 





35,2154 

0 0006 

1 

BOB® 


0347 

REF 

1 



35,2155 

3 1422 

1 

DCA 

ATIOINC 

0348 

REF 

1 



35,2156 

0 2162 

0 

TC 

P35/PT5A 

0349 

REF 

2 

LAST 

455 

35,2157 

0 3741 

0 P75 

ic 

AVFIAGP 

0350 





35,2160 

0 0006 

1 

EXTEND 


0351 

REF 

1 



35,2161 

3 1424 

1 

DCA 

PTIOINC 

0352 

REF 

T 

LAST 

460 

35,2162 

53«764 

1 P35/P75A DxCH 

KT 

03525 

REF 

2 

LAST 

455 

35,2163 

0 3746 

1 

TC 

P20FI/3CN 

0353 

REF 

43 

LAST 

457 

35,2164 

0 6006 

1 

TC 

INTPHET 

0359 





35,2165 

77624 

1 

CALL 


0360 

REF 

2 

LAST 

455 

35,2166 

10716 

0 


aSLEClMU 

0361 





35,2167 

77634 

0 P35/P75 B rtb 


0362 

REF 

3 

LAST 

423 

35,2170 

45505 

0 


L0ADTI(4B 

03621 

REF 

3 

LAST 

123 

35,2171 

03665 

1 

STORE 

TSTOT 

03622 





35,2172 

77615 

0 

DAD 


03623 

REF 

B 

LAST 

460 

35,2173 

02364 

1 


KT 

03624 

REF 

18 

LAST 

457 

35,2174 

03413 

1 

STORE 

TIG 

0363 

REP 

3 

LAST 

457 

35,2175 

03503 

1 

STORE 

INTIME 

0364 

REP 

5 

LAST 

456 

35,2176 

34041 

0 

STCALL TOECi 

0365 

REF 

2 

LAST 

456 

35,2177 

45354 

1 


PRECSET 

0366 





35,2200 

77624 

1 

CALL 


0367 

REF 

1 



35,2201 

72522 

1 


S34/35.I 

0368 





35,2202 

77624 

1 

CALL 


0369 

REP 

2 

LAST 

457 

35,2203 

72534 

0 


S34/35.2 

0370 





35,2204 

77624 

1 

CAU, 


0371 

REP 

2 

LAST 

457 

35,2205 

72742 

0 


S34/35.5 

0372 





35,2206 

77624 

1 

CALL 


0373 

REF 

2 

LAST 

457 

35,2207 

73005 

0 


VN1645 

0379 





35,2210 

77650 

1 

GOTO 


0380 

REP 

1 



35,2211 

72167 

1 


P35/PT5B 


set UPDATPLO, TBACkFLG 


FOR INITVEL 


ADVANCE BOIH VFHIClJES 


GET NORH AND LOS FOB TOANSFOK>1 


GET DEl^TA V(LV) 
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P0381 

— 

. 833/34.1 

. ... 

-- 




0382 





35.2212 

66220 1 

S 33 / 34.1 sro 

SSP 

0383 

HEP 

1 



35,2213 

01340 1 


NORffiX 

0384 

HEP 

2 

LAST 

123 

35.2214 

03665 1 


TITER 

0385 





35.2215 

40000 0 

OCT 

40000 

0386 





35,2218 

4034S 1 

DLOAD 

sbtfo 

038T 

HEP 

1 



35.2217 

33136 0 


HAX2S0 

0388 





35.2220 

00001 0 


OD 

0389 

IffiP 

2 

LAST 

120 

35,2221 

27454 1 

.STCVL 

SEOIAX 

0390 

REP 

4 

lAST 

457 

35,2222 

03540 0 


RAC?r3 

0391 

REP 

1 



35.2223 

27576 0 

STOVL 

RAPBEC 

0392 

RBP 

2 

LAST 

120 

35.2224 

03546 0 


VAC?r3 

0393 

REP 

1 



35,2225 

2757 0 0 

STOVL 

VAPHEC 

0394 

IffiP 

3 

LAST 

456 

35.2228 

03554 0 


HPAS33 

0395 

REP 

1 



35,2227 

27620 0 

STCVL 

RPPHEC 

0396 

REP 

3 

LAST 

4S6 

35,2230 

03562 0 


VPASS3 

039T 

IffiP 

1 



35,2231 

03612 1 

STORE 

VPPREC 

0398 





35.2232 

77624 1 

ELCALC CALL 


0399 

REP 

2 

LAST 

460 

35,2233 

725 22 1 


S 34 / 35 .I 

0400 





35,2234 

63235 0 

vxv 

PDVL 

0401 

REP 

5 

LAST 

461 

35,2235 

0354 0 0 


BACT3 

0402 





35,2238 

53515 0 

POVL 

UNIT 

0403 

RBP 

6 

LAST 

431 

35,2237 

03540 0 


RACT3 

0404 





35,2240 

46315 1 

PDVL 

VPROJ 

0405 





35,2241 

51352 1 

VSL2 

BVSU 

0406 

REP 

2 

LAST 

91 

35,2242 

02625 1 


ULOS 

0407 





35,2243 

63256 0 

UNIT 

PDVL 

0403 





35,2244 

63241 0 

DOT 

PDVL 

0409 





35,2245 

00001 0 


OD 

0410 





35,2248 

75241 1 

DOT 

SIGN 

0411 

HEP , 

3 

LAST 

461 

35,2247 

02625 1 


ULOS 

0412 





35,2250 

65552 0 

SLl 

ACX3S 

0413 





35,2251 

50315 0 

PDVI, 

DOT 

0414 

REP 

4 

LAST 

461 

35,2252 

02625 1 


ULOS 

0415 

REF 

7 

LAST 

461 

35,2253 

03540 0 


RACT3 

0416 





35,2254 

71244 0 

BPL 

DLOM> 

0417 

IffiP 

1 



35,2255 

72260 0 


TESDf 

0418 

REP 

2 

LAST 

421 

35,2^6 

15340 1 


DPPOS4AX 

0419 





35,2257 

41425 1 

DSU 

PUSH 

0420 





35,2260 

71214 0 

TEsnr BCFP 

OJOXD 

0421 

REF 

4 

LAST 

456 

35,2261 

03741 0 


ITSWICH 

0422 

REP 

1 



35,2262 

725 07 0 


ELBX 

0423 

REP 

2 

LAST 

120 

35,2283 

03452 1 



0424 

REF 

1 



35,2264 

14033 1 

STOX^ 

DELELO 

0425 





35,2265 

77625 0 

DSU 


0426 

REF 

6 

LAST 

455 

35,2266 

03744 0 


HJV 

0427 

REP 

3 

LAST 

461 

35,2267 

03452 1 

STORE 

DBLBL 

0428 





35,2270 

45246 0 

ABS 

Dar 

0429 

REF’ 

1 



35,2271 

33142 0 


EJJ?PS 
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NOtMAL AND LOS 

(RA*VA)*HA CD 
ULOS at 6D 

XCHNJ AND UP 


UP At OD 
UP.UN+BA AT OD 
UP IN MPAC 


EA AT OD 
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0430 





35,2272 

77640 0 




043 1 

BBF 

1 



35,2273 

72517 1 


T»ex 

COWERCIALS EVEHTVSHERE 

0432 





35,2274 

70535 0 

PIOTIKE SLCHO 

SRl 


0433 

RBP 

3 

LAST 

461 

35 , 2275 

03665 1 


TITER 


0434 





35,2276 

72030 1 

BHIZ 

L0CA,1 


0435 

REP 

2 

LAST 

461 

35,2277 

01340 1 


NCR^ 

TOO MANY ITERATICNS 

0438 

BBP 

235 

LAST 

447 

35,2300 

00154 1 


HPAC 


043T 





35,2301 

77330 1 

SJCA.l 

VLQAD 


0438 

BEP 

4 

LAST 

462 

35,2302 

03664 0 


TITER 


0439 

IffiP 

4 

LAST 

461 

35,2303 

03554 0 


HPAS33 


0440 





35,2304 

65256 0 

UNIT 

POOL 


0441 





35,2305 

00045 0 


380 


0442 





35,2306 ' 

53515 0 

PDVL 

miT 


0443 

RSP 

e 

I A ST 

461 

35,2307 

03540 0 


IIACT3 


0444 





35,2310 

77725 1 

POOL 



0445 





35,2311 

41525 0 

POOL 

POSl 


0448 





35,2312 

00045 0 


380 


044T 





35,2313 

77621 1 

BDSU 



0448 





35,2314 

00015 0 


120 


0449 





35,2315 

14037 0 

STCDL 

300 

HP _ RA MAGNITUDES 

0450 

BEEP 

T 

LAST 

403 

35,2316 

15330 0 


DPHALP 


0451 





35,2317 

41425 1 

DSU 

PUSH 


0452 

fiBF 

7 

LAST 

461 

35,2320 

03744 0 


HEV 


0453 





35,2321 

50165 0 

SIGN 

EW 


0454 





35,2322 

00037 0 


30D 


0455 

REP 

3 

LAST 

462 

35,2323 

01340 1 


NC»Bx 


0456 





35,2324 

71545 0 

DLOAD 

COS 


0457 





35,2325 

56205 0 

DMP 

DOV 


0458 





35,2328 

00017 1 


140 


0459 





35,2327 

00015 0 


120 


0460 





35,2330 

77676 0 

DCOfP 


SINCE COS(180-A)=-COS A 

0461 





35,2331 

00035 1 

STOBB 

280 


0462 





35,2332 

44246 1 

ABS 

BDSU 


0463 

BEP 

8 

LAST 

462 

35,2333 

15330 0 


DPHALP 


0464 





35 , 2334 

77240 1 

BMV 

VLCAD 


0465 

BBP 

4 

LAST 

462 

35,2335 

01340 1 


NCBSex 


0466 

SSF 

2 

LAST 

91 

35,2336 

02617 0 


UNBM 


046T 





35,2337 

53435 0 

VXV 

UNIT 


0468 





35 , 2340 

00007 0 


60 

UN+RA 

0469 





35,2341 

41241 0 

DOT 

DMP 


0470 

REP 

3 

lAST 

461 

35,2342 

0354 6 0 


VACts 


0471 





35,2343 

00015 0 


120 


0472 





35,2344 

47315 0 

POVL 

VXV 


0473 





35 , 2345 

00001 0 


OD 


0474 

REP 

4 

LAST 

461 

35,2346 

03562 0 


VPASS3 


0475 





35,2347 

53435 0 

VXV 

UNIT 


0476 





35,2350 

00001 0 


OD 

(RP*VP)*RP 

0477 





35,2351 

41241 0 

DOT 

CMP 


0478 

REP 

5 

LAST 

462 

35,2352 

03562 0 


VPASS3 


0479 





35,2353 

00017 1 


140 
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0480 





35,2354 

77621 

1 


HDSO 


0481 





35,2355 

63301 

0 


NORM 

PDVL 

0482 

REP 

3 

LAST 

456 

35,2356 

00047 

1 



XI 

0483 





35,2357 

00007 

0 



6D 

0484 





35,2380 

50235 

0 


VXV 

DOT 

0485 





35,2361 

00001 

0 



OD 

0486 

BBP 

3 

LAST 

462 

35,2362 

02617 

0 



IIWM 

0487 





35,2363 

50315 

0 


PDVL 

DOT 

0488 





35,2364 . 

00001 

0 



OD 

0489 





35,2365 

00007 

0 



6D 

0490 





35,2366 

65552 

0 


SLl 

ACOS 

0491 





35,2387 

77765 

0 


SIGN 


0492 





35,2370 

43225 

0 


DSU 

DAD 

0493 

IffiP 

• 

LAST 

462 

35,2371 

15330 

0 



DPHALE 

0494 

BEE 

8 

LAST 

462 

35,2372 

03744 

0 



EL£V 

0495 





35,2373 

65525 

0 


t410L 

ACOS 

0496 





35,2374 

00035 

1 



28D 

0497 





35,2375 

75221 

1 


BOSU 

SIGN 

0498 

B0F 

10 

LAST 

463 

35 , 2376 

15330 

0 



DmALP 

0499 





35,2377 

00037 

0 



30D 

0500 





35,2400 

77615 

0 


DAD 


0501 





35,2401 

56205 

0 


DMP 

DOV 

0502 

BEF 

1 



35,2402 

33134 

1 



•nropi 

0503 





35,2403 

77605 

1 


DMP 


0504 





35,2404 

41257 

1 



DMP 

0505 





35,2405 

20176 

0 



0 -3,1 

0506 





35,2408 

51406 

1 


puai 

ABS 

0507 





35,2407 

50025 

0 


DSU 

BW 

0508 

BEE 

3 

LAST 

461 

35,2410 

03454 

1 



fflCWx 

0509 

BEE 

1 



35,2411 

72415 

1 



CKMAX 

0510 





35,2412 

75345 

1 


D14MD 

SIGN 

0511 

BBP 

4 

LAST 

463 

35,2413 

03454 

1 



SECMAX 

0512 





35,2414 

77608 

1 


PUSH 


0513 





35,2415 

51135 

1 

CBMAX 

SLOW 

BPL 

0514 

BBP 

5 

LAST 

462 

35,2416 

03665 

1 



TITER 

0515 

BBP 

1 



35,2417 

72425 

1 



BEPBIE 

0516 





35 , 2420 

71331 

0 


SSP 

DLOAD 

0517 

BEE 

6 

LAST 

463 

35,2421 

03665 

1 



titer 

0518 





35 , 2422 

37777 

1 


OCT 

37777 

0519 





35,2423 

77650 

1 


GOTO 


0520 

BEF 

1 



35,2424 

7246 3 

0 



STDBDBl^T 

0521 





35,2425 

41345 

0 

REPEIB 

DLOAD 

DMP 

0522 

BBP 

4 

LAST 

461 

35,2426 

03452 

1 



DBLBL 

0523 

REE 

2 

LAST 

461 

35,2427 

00033 

1 



Daax) 

0524 





35,2430 

71244 

0 


BPL 

DLOAD 

0525 

BEE 

1 



35,2431 

72441 

0 



NEXTES 

0526 

BEF 

5 

LAST 

463 

35,2432 

03454 

1 



SECHAx 

0527 





35,2433 

77605 

1 


DMP 


0528 

REF 

1 



35,2434 

33140 

1 



THIRD 

0529 

BEE 

6 

LAST 

463 

35,2435 

17454 

1 


STOOL 

SECMAX 


USEBsS PAGE NO. 12 B4 S3 


NOBMALIzai WA - WP 120 


BA+BP.UN 140 


ALPHA PI 


contains BP-RA 


REPLACE TI® Wim MAX TH® SIGSffiD 


TEST FIRST ITERATICN 
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0530 





35,2438 

70446 0 


ABS 

SRl 

0531 





35,2437 

52076 1 


DCQ4P 

GOTO 

0532 

REP 

1 



35,2440 

72451 1 



RESIGN 

0533 





35,2441 

51545 1 

NEXTES 

DLOAD 

ABS 

0534 

REP 

5 

LAST 

463 

35,2442 

03452 1 



DELEL 

0535 





35,2443 

51525 1 


POOL 

ABS 

0530 

REP 

3 

LAST 

463 

35,2444 

00033 1 



DELELO 

053T 





35,2445 

77625 0 


DSU 


0538 





35,2448 

71240 1 


BMX 

DLOAD 

0539 

REP 

1 



35,2447 

72454 1 



REVEHS 

0540 





35,2450 

77646 0 


ABS 


0541 





35,2451 

52165 1 

resign 

SIGN 

GOTO 

0542 

REP 

2 

LAST 

120 

35,2452 

03450 0 



DBLTEBO 

0543 

REP 

2 

LAST 

463 

35,2453 

7246 3 0 



STOraiELT 

0544 





35,2454 

57545 1 

REVEHS 

DLOVD 

DCCMP 

0545 

REP 

3 

LAST 

464 

35,2455 

0345 0 0 



DELTEEO 

.0546 





35,2458 

70406 1 


puai 

SHl 

0547 

REP 

4 

LAST 

464 

35,2457 

03450 0 


STORE 

D&.TEEO 

054B 





35,2460 

77615 0 


DAD 


0549 





35,2461 

77650 1 


GOTO 


0550 

REP 

1 



35,2462 

72464 1 



ADTI^E 

0551 

REP 

5 

LAST 

464 

35,2463 

0345 0 0 

STORDEI.T STORE 

DELTEEO 

0552 





35,2464 

77615 0 

ADTIME 

DAD 


0553 

REP 

3 

LAST 

456 

35,2465 

02364 1 



NCMTPl 

0554 

REP 

4 

LAST 

464 

35,2466 

02364 1 


STORE 

NOWTPI 

0555 





35,2467 

63375 0 


VLOAD 

POVL 

0556 

REP 

2 

LAST 

461 

35,2470 

035 7 0 0 



VAPREC 

0557 

REF 

2 

LAST 

461 

35,2471 

035 76 0 



RAPREC 

0558 





35,2472 

77624 1 


CALL 


0559 

REP 

1 



35,2473 

72702 1 



GOINT 

0560 





35,2474 

776 24 1 


CALL 


0561 

REP 

1 



35,2475 

45376 1 



active 

0562 





35,2476 

63375 0 


VLOAD 

PDVL 

0563 

REF 

2 

lAST 

461 

35,2477 

03612 1 



vpprec 

0564 

REP 

2 

(AST 

461 

35,2500 

03620 0 



RPPREC 

0565 





35,2501 

77624 1 


CALL 


0566 

REP 

2 

LAST 

464 

35,25 02 

72702 1 



GOINT 

0567 





35,25 03 

77624 1 


CALL 


0568 

REP 

1 



35,2504 

45406 1 



PASSIVE 

0569 





35,2505 

77650 1 


GOTO 


0570 

REP 

1 



35,2506 

72232 1 



ELCAlC 

0571 





35,2507 

43345 1 

EIBX 

DLCAD 

DAD 

0572 

REP 

8 

LAST 

457 

35,2510 

03663 1 



7TPI 

0573 

REP 

5 

LAST 

464 

35,2511 

02364 1 



NtKTPI 

0574 

REP 

9 

LAST 

464 

35,2512 

17663 1 


STODL 

TITI 

0575 





35,2513 

77614 1 


B04 


0576 

REP 

7 

LAST 

456 

35,2514 

01310 1 



etpiplag 

0577 

REP 

2 

LAST 

462 

35,2515 

72517 1 



TIi'EX 

0578 

REP 

9 

LAST 

463 

35,2516 

03744 0 


STORE 

BIBV 

0579 





35,2517 

52145 0 

TIMEX 

DIXMD 

GOTO 


Crossed over solution 

DT=( -SIGN(DTO) //DT//) /2 


WRCNG DIHECTICN 


SLM OP delta T’S 


STORE NEW RACT3 VACT3 


STORE NEW RPASS3 VPASS3 




ASSEfCLB REVISION 249 OP AOC PROtaAM COLOSSUS BY NASA 2021111-041 
L P34-P35, PT4-P75 


20’35 OCT. 28,1988 SKOOt .007 PAGE 465 
USERocS PAGE NO. 14 B4 S3 


0580 

0581 


REP 

HEP 


3 LAST 455 
5 LAST 462 


35.2520 

35.2521 


15332 1 
01340 1 


ZEROES 

NORMBX 
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P0582 


. S34/3S-1 






R0583 

COKPUIS UNIT NORMAL AND LINE OP SIGHT VECTORS GIVEN THE ACTIVE 

R0584 

PASSIVE POS and VEL AT TIKE T3 




05B5 





35,2522 

52375 1 

S 34 / 35 .I VLQAD 

VSO 

0586 

REP 

5 

LAST 

462 

35,2523 

03554 0 


RPASS3 

0587 

REF 

9 

LAST 

462 

35jZ524 

0354 0 0 


HACT3 

0588 





35,2525 

41456 0 

UNIT 

PUSI 

0589 

REP 

5 

LAST 

461 

35,2526 

26625 1 

STTVL 

ULOS 

0590 

REP 

10 

LAST 

466 

35,2527 

03540 0 


HACT3 

0591 





35,2530 

53435 0 

vxv 

UNIT 

0592 

REP 

4 

LAST 

462 

35,2531 

03546 0 


VACT3 

0593 

REP 

4 

LAST 

463 

35,2532 

02817 0 

STORE 

UNRM 

0594 





35,2533 

77616 0 
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834/35. 2 


059T 





3S.2S34 

77220 1 

834/35 

.2 810 

VLOW 

059S 

lEP 

6 

LAST 

455 

35.2335. 

02370 1 



SUrexIT 

0599 

HEP 

6 

LAST 

462 

35.S3S 

03562 0 



VPASS3 

•600 





35,2537 

65315 0 


PDPL 

POOL 

0601 

FES' 

6 

LAST 

466 

35.2540 

03554 0 



RPASS3 

0602 

HEP 

4 

LAST 

460 

35,2541 

03503 1 



INTDB 

0603 





35.2542 

65325 0 


ICDL 

POOL 

0604 

RBP 

5 

LAST 

457 

33,2343 

03356 1 



TPASS4 

060S 

HEP 

4 

lAST 

465 

35.K44 

15332 1 



ffRCVBCS 

0606 





35,2545 

45006 0 


puai 

CALL 

060T 

fflP 

1 



35,2546 

72708 0 



INTINT 

0606 

HEP 

4 

LAST 

171 

35,2547 

27415 1 

83435.: 

25 STCVL 

RWHD 

0609 

HEP 

1 



35,2550 

00007 0 



VATT 

0610 

REP 

3 

LAST 

457 

35,2551 

27640 0 


STCVL 

VPASS4 

0611 

HEP 

5 

LAST 

467 

35,2552 

03415 1 



RWHO 

R0612 

OOKPinE PHI = 

PI ♦fACQSIUNIT RA.UNIT HP>-PI)SIGN(BA4BP.U) 

0613 





35,2S53 

63256 0 


UNIT 

POVL 

0614 

RBR 

11 

LAST 

466 

35,2554 

03540 0 



BACT3 

0615 





35,2555 

41456 0 


IWIT 

PUSI 

0616 





35,2556 

50235 0 


VXV 

DOT 

061T 





35,K57 

00001 0 



OD 

0616 

BSP 

5 

LAST 

466 

35,2560 

02817 0 



llflW 

0619 





35,2561 

77715 1 


POVL 


0620 





35,2562 

72441 0 


DOT 

SLl 

0621 





35,2563 

00001 0 



OD 

0622 





35,2564 

75326 1 


ACOS 

SIGN 

0623 





35,^65 

43244 1 


BPL 

DAD 

0624 

HBP 

1 



35,2566 

72570 0 



NOP IB 

0625 

REP 

3 

LAST 

461 

35,2567 

15340 1 



DPP0S4AX 

0626 

REP 

3 

LAST 

275 

35,2570 

16633 0 

NOP IB 

STOOL 

ACTCENT 

062T 

RBP 

6 

LAST 

467 

35,2571 

03656 1 



•n>ASS4 

0628 





35,2572 

77625 0 


DSU 


0629 

REP 

5 

LAST 

467 

35,2573 

03503 1 



INTIMB 

0630 

RBP 

4 

LAST 

171 

35,2574 

03423 1 


STORE 

DELLT4 

0631 





35,2575 

40335 0 


SLOW 

SBTPD 

0632 

BSP 

1 



35,2576 

33144 0 



DBCnwO 

0633 





35,2577 

00001 0 



OD 

06331 





35,2600 

63325 0 


POOL 

PDVL 

06332 

REP 

1 



35,2601 

33147 0 



epsfcur 

06333 

REF 

12 

LAST 

467 

35,2602 

03540 0 



BACT3 

06334 

REP 

3 

LAST 

121 

^,2603 

27570 0 


STCVL 

RINIT 

06335 

REP 

5 

LAST 

466 

35,2604 

03546 0 



VACT3 

06336 

RBP 

3 

LAST 

121 

35,2605 

37576 1 


SICALL VINIT 

0633T 

REP 

1 



35,2606 

22000 1 



initvei. 

0634 





35,2807 

77624 1 


Cflli 


0635 

REP 

■ 1 



35,2610 

72667 0 



LQ«BT 

0636 





35,2611 

64375 1 


VLOID 

MXV 


GET WHGET VEXWS 


IW+BP.U 


IWIT RA.lNIT HP 


HBlSCNABli! TWO PI 
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063T 

HEP 

5 

last 

45T 

35,2812 

03646 0 

DeSA/EBT3 

0638 





35,2613 

00001 0 

OD 

0639 





35,2614 

TT7T2 0 

VSLl 

0640 


T 

LAST 

m 

35,2615 

37405 1 

SlCALL DELVLVC 

0641 

RBP 

T 

lAST 

46T 

35,2616 

02370 1 

subexit 
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0643 





35,2617 

45020 

1 

S34/35.3 

STQ 

CAU, 


I 0644 

REP 

6 

LAST 

465 

35,2620 

01340 

1 



NCR«X 


0645 

REP 

2 

LAST 

467 

35,2621 

72667 

0 



UMAT 

BBT MATOIX IN PUS! LIST 

0646 





35,26 22 

61375 

1 


VLOID 

VXM 


064T 

REP 

8 

LAST 

468 

35,2623 

03405 

0 



DBLVIVC 

NEW DEL V TPI 

0640 





35,2624 

00001 

0 



OD 


0649 





35,2625 

77772 

0 


VSLl 



1 0650 

REP 

6 

LAST 

468 

35,2626 

03646 

0 


STORE 

DELVEET3 

SAVE FOR THANSFOPM 

0651 





35,2627 

63255 

0 


VAD 

PDVL 


0652 

REP 

6 

LAST 

467 

35,2630 

03546 

0 



VACT3 

NEW V HEQ 

0653 

REP 

13 

LAST 

467 

35,2631 

03540 

0 



RACT3 


0654 





35,2632 

65325 

0 


POOL 

POOL 


, 0655 

REP 

19 

LAST 

460 

35,2833 

03413 

1 



TIB 


0650 

REP 

7 

LAST 

467 

35,2634 

03656 

1 



TPASS4 


065T 





35,2635 

41525 

0 


POX, 

poai 


' 0658 

REP 

4 

LAST 

467 

35,2636 

15340 

1 



DPP0S4AX 


0659 





35,2637 

77624 

1 


CALL 


INIEO. FOR NEW TARGET VEC 

1 0660 

.REP 

2 

LAST 

467 

35,2640 

72706 

0 



INTINT 


0661 





35,2641 

77775 

1 


VLQAD 



0662 

REP 

3 

LAST 

451 

35,2642 

00001 

0 



HATT 


0663 

REP 

6 

LAST 

467 

35,2643 

03415 

1 


STORE 

HIABO 


1 0664 





35,2644 

41575 

0 

NO/HWHT 

VLCWD 

PUSH 


0665 

REP 

6 

LAST 

466 

35,2645 

02625 

1 



U/IS 


0666 





35,2646 

57435 

1 


VXV 

VCCMP 


066T 

REP 

6 

LAST 

467 

35,2647 

02617 

0 



U4RM 


— 0668 





35,2650 

41456 

0 


UNIT 

PUSH 


0669 





35,2651 

76435 

1 


VXV 

VSLl 


06T0 

REP 

7 

LAST 

469 

35,265 2 

02625 

1 



ULOS 


0671 





35,2653 

77715 

1 


PDVL 



0672 





35,2654 

64315 

1 


PDVL 

MXV 


0673 

REP 

7 

LAST 

469 

35,2655 

03646 

0 



delveets 


0674 





35,2656 

00001 

0 



OD 


0675 





35,2657 

77772 

0 


VSLl 



1 0676 

REP 

10 

LAST 

275 

35,26 6 0 

36611 

1 


STCALL DVIX)S 


0677 

REF 

7 

LAST 

469 

35,2661 

01340 

1 



NOBMEX 



1 
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P0678 


. S34/35.4 ... 





0879 

REF 


35,2662 

40220 0 

S34/35.4 STO 

SCTPO 

M80 

8 LAST 469 

35,2663 

01340 1 


NO»^ 

0881 



35,2664 

00001 0 


OD 

0682 

BEP 


35,2665 

77650 1 

GOTO 

0683 

1 

35,2666 

72644 1 


NOYHSHTT 
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P0S84 

— 

. UMAT 

.... 

• • 






0685 





35,2667 

57575 

1 

LGMAT 

VLQAO 

VCCMP 

0686 

REP 

7 

LAST 

469 

35,2670 

02617 

0 



IHBM 

06aT 





35,2671 

24007 

0 


STtVL 

6D 

0688 

REP 

14 

LAST 

469 

35,2672 

03540 

0 



RAC?r3 

0689 





35,2673 

57456 

1 


IHIT 

VCCMP 

0690 





35,2674 

00015 

0 


STORE 

I2D 

0691 





35,2675 

76435 

1 


vxv 

VSLl 

0692 

REP 

8 

LAST 

471 

35,2676 

02617 

0 



l»»B4 

0693 





35,2677 

00001 

0 


STORE 

OD 

0694 





35,2700 

43401 

0 


®TPO 

RVO) 

0695 





35,2701 

00023 

0 



18D 

0696 





35,2702 

65325 

0 

GOINT 

FOX. 

POOL 

0697 

REF 

5 

lAST 

467 

35,2703 

15332 

1 



2EHCVECS 

0698 

REP 

6 

LAST 

464 

35,2704 

02364 

1 



NCMTPI 

0699 





35,2705 

41406 

0 


puai 

PUSH 

0700 





35,2706 

45020 

1 

INTINT 

sro 

CALL 

0701 

REP 

2 

LAST 

90 

35,2707 

02367 

1 



RIW 

0702 

REP 

6 

LAST 

259 

35,2710 

27371 

1 



INTSWLL 

0703 





- 35,2711 

71214 

0 


CLEAR 

OLOAD 

0704 

REP 

1 



35,2712 

01673 

1 



INTYPPLG 

0705 





35,2713 

43054 

1 


BZE 

»T 

0706 





35,2714 

72716 

1 



*2 

0707 

REP 

2 

LAST 

471 

35,2715 

01473 

0 



INDfPFLO 

0708 





35,2716 

45545 

1 


DLCftD 

STADR 

0709 

RBP- 

6 

LAST 

460 

35,27 1 7 

63736 

0 


STOX. 

TOECi 

0710 





35,2720 

73014 

0 



LXA,2 

0711 

REP 

1 



35,2721 

00063 

1 



MOCNPLAO 

0712 

REF 

2 

LAST 

124 

35,27 22. 

03746 

1 



171X2 

0713 





35,27 23 

43014 

0 


BCN 

Clear 

0714 

REP 

2 

LAST 

32 

35,2724 

04303 

0 



CMOCNPLO 

0715 

REP 

1 



35,2725- 

72727 

0 



ALL SET 

0716 

REP 

2 

lAST 

471 

35,2726 

00263 

0 



MOCNPLAO 

0717 

REP 

4 

LAST 

284 

35,2727 

25517 

0 

ALLSBT 

STCVL 

TET 

0718 





35,2730 

77657 

0 


VSR4 


0719 





35,2731 

57176 

0 



0,2 

0720 

REP 

4 

LAST 

204 

35,2732 

25535 

0 


STCVL 

fltv 

0721 





35,2733 

77657 

0 


VSR* 


0722 





35,2734 

57176 

0 



0,2 

0723 

REP 

4 

LAST 

265 

35,2735 

35543 

0 


SlCALL VtV 

0724 

REP 

1 



35,2736 

27066 

1 



INTBGRVS 

0725 





35,2737 

52175 

0 


VLOy> 

GOTO 

0726 

REP 

4 

LAST 

469 

35,2740 

00001 

0 



RATT 

0727 

REP 

3 

LAST 

471 

35,2741 

02367 

1 



RTRN 


Vf-r 


DO 


NOT 


ORDER OR insert BEFORE INTINT 



F0T28 

R0T29 

R0T30 
R0T31 
R0T32 
ROT 33 
R0T34 
R0735 


ASSOBLB IEVISIW 249 OP AOC PKOGSMM COUJSSUS By NASA 2021111-041 

P34-P35, P74-PT5 

S34/35.5 

stBwxrriNEs ushi 




20P35 OCT. 28,1960 »«OCH .OOT PAOB 4T2 
USBIUS PACE NO. 21 K4 S3 


BANKCALL 

OQPIASI 

OOTOPOCH 

S34/35.3 

S34/35.4 

VNPOCH 


®T36 3S.2T42 

0T3T BBP 8 last 488 35,2743 

0738 REP 1 35,2744 

0739 REF 1 35,2745 

0740 35,2746 

0741 REP 2 last 253 3512747 

0742 REP 1 35,2750 

®L43 35,2751 

0744 REP 1 35,2752 

0745 REF 1 35,2753 

0746 REF 88 LAST 456 35,2754 

0747 REP 11 lAST 456 35,2755 

0748 REP 8 LAST 458 35,2756 

0749 35,2757 

0750 REF 44 LAST 460 35,2760 

®751 35,2761 

0752 REP 2 LAST 472 35,2762 

0753 REP 2 LAST 472 35,2763 

0754 REP 45 LAST 47 2 35,2764 

0T55 35,2765 

0756 REP 3 LAST 472 35,2766 

0757 REP 1 35,2767 

0758 REP 1 35,2770 

®T59 35,2771 

0760 REP 1 35,2772 

0761 REP 8 LAST 46 9 35,2773 

0762 REP 3 LAST 121 35,2774 

0T6 3 35,2775 

0764 REF 1 35,2776 

*■^85 35,2777 

0766 REF 1 35,3000 

0767 REP 4 LAST 457 35,3001 

0768 REF 46 LAST 472 35,3002 

0T69 35,3003 

OTTO HEP 9 LAST 472 35,3004 


43020 1 

S 34 / 35.5 STO 

BCM 

02370 1 



SlfitacIT 

01311 0 



PISSLPLO 

72751 1 



PLAGCN 

52014 0 


®r 

GOTO 

00470 1 



UETMIPLG 

72775 1 



PLAGDPP 

77414 0 

PLAGCN 

CLEAR 

EltIT 

03274 0 



NWBa>IjG 

3 3131 1 


CAP 

VCSi'lBl 

0 4555 0 


IC 

BA.'^cCALL 

20624 0 


CADR 

CXPLASL 

0 4106 1 


ic 

GOICPOM 

0 2764 0 


JC 

♦5 

0 6006 1 


TP 

WIPRET 

77414 0 


set 

Elf IT 

03074 1 



mSfiGPIG 

0 2753 1 


TC 

PLAGCN *2 

0 6006 1 


7C 

i!rn>i»r 

45014 0 


BQPP 

CALL 

03354 0 



NIARGPLG 

7277 1 0 



NOCMG 

72817 1 



S 34 / 35.3 

77214 0 

NOCrt? 

CLEAR 

VL030 

01267 0 



XDGLVPICJ 

03646 0 



bblveets 

03646 0 


STORE 

Da.vsrN 

77624 1 

FLACXFP 

CAUL 


72662 0 



S 34 / 35.4 

77778 1 


exit 


3 3130 0 


CAP 

V06-'^9 

0 3114 0 


TC 

VNPOCH 

0 6006 1 


TC 

LNTPKET 

77650 1 


goto 


02370 1 



SUHEXIT 
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FOTTl 

B0TT2 

Rons 

R0T74 

Rons 

B0TT6 

HOTTT 

R0TT8 

R0T19 

ROTSO 


P34-P35, P74-P75 

VN1645 

SlBROUTINES USED 

P3XORPTX 

CETtMCW 

bankcall 

DBLAYJC0 

CCNPTOO 

QOFLASHB 

OOTOPOOH 

PLAOUP 
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0761 





35,3005 

71220 

1 

VN1645 

STO 

DLOAD 

0702 

HEP 

10 

LAST 

472 

35,3008 

02370 

1 



SlflEXIT 

0783 

REF 

1 



35,3007 

33145 

1 



DP-.Ol 

0784 

REP 

4 

lAST 

274 

35,3010 

03828 

0 


STORE 

+MM 

0785 





35,3011 

71214 

0 


BCPP 

DUMD 

0786 

REF 

2 

LAST 

472 

35,3012 

01351 

1 



PINALFliT 

0787 

REP 

1 



35,3013 

73033 

a 



GBT45 

0788 

REP 

2 

LAST 

473 

35,3014 

33145 

1 



W-.Ol 

0789 





35,3015 

77815 

0 


DAO 


0790 

REP 

3 

LAST 

473 

35,3018 

33145 

1 



DP-.Ol 

0791 

REP 

S 

LAST 

473 

35,3017 

03828 

0 


STORE 

,MM 

0792 





35,3020 

77414 

0 


BCPP 

Exit 

0793 

REP 

1 



35,3021 

01742 

1 



repsmflo 

0794 

REP 

2 

LAST 

473 

35,3022 

73033 

0 



t»T45 

0795 

REP 

1 



35,3023 

0 3108 

0 


TC 

P3X0RPTX 

0796 





35,3024 

0 3028 

0 


TC 

*2 

0797 

REP 

3 

LAST 

473 

35,3025 

0 3034 

0 


TC 

C3BT45 *1 

0798 

HEP 

47 

LAST 

472 

35,3028 

0 8008 

1 


TC 

intpret 

0799 





35,3027 

41575 

0 


VLCMD 

PUSH 

0800 

REP 

4 

LAST 

472 

35,3030 

03848 

0 



DELVSIN 

0801 





35,3031 

77824 

1 


CALL 


0802 

REP 

1 



35,3032 

10860 

0 



GBT+MGA 

0803 





35,3033 

77776 

1 

CET4S 

EXIT 


0804 

REP 

1 



35,3034 

0 3564 

0 


TC 

CCMPTtX) 

0805 

REP 

11 

LAST 

473 

35,3035 

3 1770 

0 


CA 

SUffiXiT 

0806 

REP 

2 

LAST 

90 

35,3038 

55«766 

0 


T3 

OSAVED 

0807 

REF 

2 

LAST 

424 

35,3037 

3 4734 

0 


CAP 

ISEC 

0808 

REP 

69 

LAST 

472 

35,3040 

0 4555 

0 


TC 

bankcau. 

0809 

REP 

2 

LAST 

194 

35,3041 

01732 

0 


CADH 

DEIAYJCB 

0810 

REP 

1 



35,3042 

3 3132 

1 


CAP 

V16N45 

0811 

REP 

90 

LAST 

473 

35,3043 

0 4555 

0 


TC 

BANkCAU, 

0812 

REP 

12 

LAST 

472 

35,3044 

20624 

0 


cadr 

GOFlAai 

0813 

REP 

1 



35 , 3045 

0 3050 

1 


TC 

kilciaxk 

0814 

REP 

1 



35,3048 

0 3053 

1 


TC 

N45PRCX: 

0815 

REF 

1 



35,3047 

0 3063 

1 


TC 

(XUPDATE 

0816 

• REF 

13 

LAST 

342 

35,3050 

3 0005 

1 

KILCLOCk ca 

z 

0817 

REF 

1 



35,3051 

54 000 

0 


TS 

DISPDEX 


MG» = -.01 


MM = -.02 


P3X 

m 


COMPUTE MM 


INITIATE TASK TO UPDATE TTOGO 


TBKMOCSiT, TTOK). tMCiA 


TERMINATE 

PRCCEfI) 

BECriiUlE - RETURN FOR INITIAL CCMPinATICN 
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0818 

REF 

9 

last 

472 

35,3052 

0819 

REF 

T 

LAST 

299 

35,3053 

0820 

REF 

30 

LAST 

383 

35,3054 

0821 





35,3055 

0822 

REP 

2 

LAST 

473 

35,3056 

0823 

REP 

20 

LAST 

447 

35 , 3057 

0824 





35,3060 

0825 

REP 

16 

LAST 

391 

35,3061 

0826 

REP 

3 

LAST 

473 

35,3062 

0827 

REF 

14 

LAST 

473 

35,3083 

0828 

REF 

2 

LAST 

473 

35,3064 

0829 

REP 

*21 

LAST 

474 

35,3065 

0830 





35,3066 

0831 

REF 

48 

LAST 

473 

35,3067 

0832 





35,3070 

0833 

REF 

3 

LAST 

472 

35,3071 

0834 

REF 

3 

LAST 

473 

35,3072 


0 4106 

1 

IC 

OOTOPOCH 

4 0076 

1 

N45PROC cs 

PLAOWHD2 

7 4705 

0 

M»SK 

BIT6 

0 0006 

1 

exTS© 


1 3050 

0 

BzP 

kilclock 

0 5301 

0 

IC 

PHASCHNG 

04024 

0 

OCT 

04024 

0 5435 

0 

1C 

UPFLAG 

00047 

1 

ADHES 

FINALFLG 

3 0005 

1 

CLUPDATE CA 

Z 

54 000 

0 

TS 

DISPDEX 

0 5301 

0 

IC 

PHASCHNG 

04024 

0 

OCT 

04024 

0 6006 

1 

IC 

INTPRET 

52014 

0 

CLEAR 

GOTO 

00670 

0 


UPOATFLG 

02366 

0 


OSAVED 


USBRocS PAGE NO. 23 B4 S3 


FINALPLO IS SET-FLASH V37-AWAIT NEW PGM 


SET 

FINALFLO 
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BOOST 

R0838 

R0839 

B0840 

B0841 
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BANkCALL 

GOFLAam 

ooropocM 

blanket 

ENDOPJOB 


0842 





35 , 3073 

0 

0008 

i 

DISPLAKB BiCIB© 


0843 

REP 

9 

LAST 

470 

35,3074 

23«340 

1 

OCCH 

NCSfEX 

0844 

REP 

1 



35,3075 

3 

3126 

1 

CAP 

V06N55 

0845 

REP 

91 

LAST 

473 

35 , 3076 

0 

4555 

0 

TCr 

BANKCALL 

0846 

REP 

1 



35,3077 

20763 

1 

CADH 

GOPLASKR 

084T 

REP 

10 

LAST 

474 

35,3100 

1 

4106 

0 

TCP 

GOlWOCH 

0848 

BEF 

10 

LAST 

475 

35,3101 

0 

1340 

1 

IC 

NC»«!C 

0849 





35,3102 

1 

3075 

1 

TCP 

-5 

0850 

REP 

35 

LAST 

442 

35,3103 

3 

4712 

1 

CAP 

BITT 

0851 

REP 

1 



35,3104 

0 

5415 

1 

TCr 

blanket 

0852 

REP 

58 

LAST 

444 

35,3105 

1 

5112 

1 

TCP 

ETOOPJQB 


blank Hi 


# 
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P0853 


.. P3X0RP7X ... 






0854 

10 ' 

i 



35,3106 

3 7713 

0 

P3XORP7X CAP 

HIGMg 

0855 

ISP 

' 8 

LAST 

385 

35,3107 

7 1011 

1 

mask 

MODHEO 

0858 





35,3110 

0 0006 

1 

EXTEND 


085T 





35,3111 

1 3113 

0 

BZP 

^■2 

0858 

BBP 

151 

LAST 

439 

35,3112 

24 002 

0 

INCR 

Q 

0859 





35,3113 

0 0002 

0 

RBTUTOI 


R0880 

— 

. VNPOOH 







R08S1 

SI0SOuriNES USED 






H0862 


BANKCAU, 







R0883 


OOFLASH 







R0B64 


GOTOPOCH 







0865 





35,3114 

0 0006 

1 

VNPOCH EXTEND 


0866 

10 ' 

4 

LAST 

471 

35,3115 

23«767 

0 

QXCH 

RITOJ 

086T 

RHP 

2 

LAST 

89 

35,3116 

55«765 

0 

TS 

VERlWajN 

0868 

SEP 

3 

LAST 

476 • 

35,3117 

3 1765 

1 

CA 

VERBNOJN 

0869 

REP 

92 

LAST 

475 

35,3120 

0 4555 

0 

TCR 

bankcau. 

0870 

BEP 

13 

LAST 

473 

35,3121 

20624 

0 

CADR 

OOFTJ^ai 

0871 

US' 

11 

LAST 

475 

35,3122 

1 4106 

0 

TCP 

GOrOPCXM 

0872 

SCF 

5 

LAST 

476 

35,3123 

0 1767 

0 

TC 

RFRS 

0873 





35,3124 

1 3117 

1 

TCP 

-5 


I 

I 
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P0874 

... CONSTANTS .. 

... 




0875 


35,3125 

01445 

0 

V06N37 

0878 


35,3126 

01467 

0 

V08N55 

0877 


35,3127 

01472 

1 

V08N58 

0878 


35,3130 

01473 

0 

V08N59 

0879 


35,3131 

01521 

0 

V0SN81 

0880 


35,3132 

04055 

0 

V16N45 

0881 


35,3133 

14441 

0 

TVIOPI 

0881 


35,3134 

37325 

1 


0882 


35,3135 

00001 

0 

MAX250 

0882 


35,3136 

20650 

0 


0883 


35,3137 

12525 

0 

THIRD 

0883 


35,3140 

12525 

0 


0884 


35,3141 

00004 

0 

H-EPS 

0884 . 


35,3142 

21505 

1 


0885 


35,3143 

00002 

0 

DECTWO 

0886 


35,3144 

77777 

0 

DP-.Ol 

0887 


35,3145 

61337 

1 


08871 


35,3146 

01252 

0 

EPSPCUR 

08871 


35,3147 

25253 

1 
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. VN 063T 

VN 0655 

VN 0658 

VN 0659 

VN 0681 

VN 1645 

2DBC 8.28318530T B-4 

2DEC 25 E3 

.333333333 

7fXC .27T7T77T E-3 

OCT 2 

OCT 77777 CONSTANTS 

OCT 61337 ADJACaiT " -.01 FOR MSA 

2DEC .0416666666 
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B4 S3 


B0889 

R0890 


MOD NO -1 LOG seOriCN - P34-P35. PT4-PT5 

MOD By WHITE. P DATE 21NOV6T 


■0891 FWCtICNAL DESCRIPTION 

■0892 THIS Sl»RamNE CCKPOIES THE HEOJIRaO INITIAL VELOCITy VECTOR FOR 

■0893 A TRAJBCTORy (E SPECIFIED TRANSFER TIfSB I®TCEai' SPECIFIED INITIAL 

■0894 AND TARGET POSITIONS. THE raAJECTORy MAV EE EITHER CONIC CB 

■0895 PRECISION IffiPENDINO ON AN INPUT PAfia.\3lBH (NA.MELY, NOKBEH CP 

■0898 OPFSETS) . IN AMIITICN, IN THE PRECISION TRAJECTORY CASE, THE 

■0897 SLBRairiNB ALSO C0F1PUTES AN aFPSST TSHGET VECTOR, TO BE USED 

■0898 During pure-conic cross-prcduct steehiko. the offset target 

■0899 VECTOR IS THE TEIWINAL POSITION VECTOR CP A CONIC TRAJECTORY WHICH 

■0900 HAS THE SA® INITIAL STATE AS A PRECISION TRAJECTORY WHOSE 

■0901 . terminal position vector is THE SPECIFIHl TARCET VECTOR. 

■0902 IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE laO DEGREE 

■0903 TRANSFER CASE WHEN THE (TRUE OR QPPSSTl TARGET VECTOR MAY BE 

■0904 SLIGHTLY (XIT OP THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS 

■0905 A/ECtOR into A PLANE IKFINED BY THE INPUT INITIAL POSITIQI VECTOR 

■0906 AND ANOIl«R INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR), 

■0907 whenever the INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERT^ 

■0908 IS THE ORIGIN OP COCBDINATES, WHOSE AXIS IS THE igO DEGREE 

■0909 TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIHl BY THE USER. 

■0910 THE LANBERT SUBROUTINE IS m’ILl2£D FC« THE (XNIC CCMPUTATICNS AND 

■0911 THE COASTING INTEGRATICN SLBHDUTINE IS UTILIZSl FOR THE PRECISICN 

■0912 TRAJECTORY CCMPUTATICNS. 


■0913 CALLING SEQUHICE 


■0914 
■0915 
■0916 

■0917 INPUT 


L 

L*1 

W2 


CALL 

INITVEL 

(RETURN - ALWAYS) 




■0918 

(1) RINIT 

INITIAL POSITION RADIUS VECTOR 

■0919 

(2) VINIT 

INITIAL POSITION VELOCITY VECTOR 

■0920 

(3) RTARG 

TARCET POSITICN RADIUS VECTOR 

■0921 

(4) DEILT 4 

DESIRHD TIME OF FLICHT FBCM RINIT TO RTARG 

■0922 

( 5 ) INTIME 

TIME OP RINIT 

■0923 

(6) OD 

NUMBER OP ITERATKNS OP lAVBBRT/INTEGRVS 

■0924 

(T) 2D 

ANGLE TO 180 DEGREES WHEN ROTATION STARTS 

■0925 

(8> RTCl 

-2 FCR EARTH, -IflD FOR ILNAR 

■09251 

( 9 ) R1X2 

COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR 

■0926 

PUSHUC SET 

AT 40 
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' 80927 oumrr 

B0928 <1) HWISB OFFSET TAHOET POSITION VECWM 

I R0929 <2) VIPBI® MilNEWBR VELOCITY REQUIRED 

R0930 <3) VTPHIXS VELOCITY AT TARGET AFTER MANEUVER 

R0931 (4> DBLVEEra IKLTA VELOCITY REQUIRED FOR MANEUVER 

R0932 SIflaOUTINES USED . 

I R0933 tA^BEHT 

B0934 INTSTALL 

R0935 DOBtatVS 


0938 

RBF 

1 



11,2000 




SETLOC 

intvel 


0937 





11,2000 




bank 



0938 

REF 

1 







COUNT 

11 /INITV 


0958 





11,2000 

77614 

1 

INITVEL 

SET 


COQA OUESS NOT AVAILABLE 

0959 

REF 

1 



11,2001 

00475 

1 



0UES9A 


0960 





11,2002 

44175 

1 

HAVBOUES VLOAD 

STQ 


0961 

REF 

T 

LAST 

469 

11,2003 

03415 

1 



RTABO 


0962 

REF 

11 

LAST 

4T5 

11,2004 

01340 

1 



NOB^EX 


0963 

REF 

2 

LAST 

120 

11,2005 

03604 

0 


STORE 

RTARGl 


0964 





11,2006 

46135 

1 


SLOW 

BHIZ 


0963 

REF 

3 

LAST 

471 

11,2007 

03747 

0 



RTV 2 


0967 

REF 

1 



11,2010 

22022 

1 



INITVELl 


0968 





11,2011 

72575 

0 


VLOAD 

VSL2 


0969 

REF 

4 

LAST 

467 

11,2012 

03570 

0 



RINIT 

B 29 

0970 

REF 

5 

LAST 

479 

11,2013 

27570 

0 


STCVL 

RINIT 

B27 

0971 

REF 

4 

LAST 

467 

11,2014 

03576 

0 



VINIT 

B7 

0972 





11,2015 

77752 

1 


VSL 2 



0973 

REP 

5 

LAST 

479 

11,2016 

27576 

0 


STOVL 

VINIT 

B5 

0974 

REP 

3 

LAST 

479 

11,2017 

03604 

0 



RTAHOl 


0975 





11,2020 

77752 

1 


VSLz 



0976 

REF 

4 

LAST 

479 

11,2021 

03604 

0 


STORE 

RTAROl 


R09T7 


witializaticn 








0978 





11,2022 

71331 

0 

INITVELl 

SSP 

DLOAD 

SET ITCTR TO -l.IXMD MPAC WITH E4(PL 2 D) 

0979 

RBF 

1 



11,2023 

035 05 

1 



ITCTR 


0980 





11,2024 

77776 

1 



0 -1 


0981 





11,2025 

70546 

1 


COSINE 

SRl 

CAIXHLATE COSINE (E 4 ) f+ 2 ) 

0982 

REF 

2 

LAST 

121 

11,2026 

17630 

1 


STOOL 

COZY 4 

set CQZY 4 TO COSINE! E 4 ) (PL OD) 

0983 





11,2027 

67154 

0 


IXA,2 

SXA,2 


0984 

REF 

236 

LAST 

462 

11,2030 

00154 

1 



MPAC 


0985 

REP 

2 

LAST 

94 

11,2031 

02703 

1 



VTARGTAO 

SET VTARGTACl TO oD ISP) 

0986 





11,2032 

77775 

1 


VIXMD 



0987 

REP 

0 

LAST 

479 

11,2033 

03570 

0 



RINIT 


0988 

REF 

3 

LAST 

94 

11,2034 

28657 

1 


STOVL 

RlVEC 

RlVEC EO RINIT 

0989 

REF 

5 

LAST 

479 

11,2035 

03604 

0 



KIAROi 





L 
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0990 

REE 

2 

LAST 

94 

11,2036 

16665 0 

STOOL 

0991 

REP 

5 

LAST 

467 

11,2037 

03423 1 


0992 

REP 

2 

LAST 

94 

11,2040 

02673 1 

STORE 

0993 





11,2041 

77201 1 

SBTPD 

0994 





11,2042 

00001 0 


0995 

REP 

T 

LAST 

479 

11,2043 

03570 0 


0996 





11,2044 

41456 0 

UNIT 

099T 





11,2045 

53435 0 

VXV 

0998 

REP 

0 

LAST 

479 

11,2046 

03576 0 


0999 

REP 

2 

LAST 

94 

11,2047 

26676 1 

STCVL 

1000 

REP 

6 

LAST 

479 

11,2050 

03604 0 


1001 





11,2051 

50256 0 

UNIT 

1002 





11,2052 

43015 1 

DAO 

1003 

REP 

3 

LAST 

479 

11,2053 

03630 1 


1004 • 

REP 

1 



11,2054 

03665 1 


1005 

REP 

4 

LAST 

480 

11,2055 

03630 1 

STORE 

1006 





11,2056 

43044 0 

INITVEL2 bpl 

lOOT 

REP 

1 



11,2057 

22101 1 


1008 

REP 

2 

LAST 

480 

11,2080 

03465 0 


R1009 

ROTATE RC 

INTO yc plane - 

set UNIT NORMAL TO YC 

1010 





11,2061 

41575 0 

VLOID 

1011 

REP 

2 

LAST 

480 

11,2062 

02665 0 


1012 





11,2063 

63246 1 

ABVAL 

1013 





11,2064 

46206 1 

puai 

1014 

REP 

3 

LAST 

480 

11,2065 

02676 1 


1015 





11,2066 

51352 1 

va,2 

1016 





11,2067 

74256 0 

UNIT 

lOlT 

■ 




11,2070 

77772 0 

VSLl 

1018 

REP 

4 

LAST 

480 

11,2071 

02665 0 

STORE 

1019 





11,2072 

67351 1 

TLOAD 

1020 

REP 

2 

LAST 

31 

11,2073 

11456 0 


1021 

REP 

2 

LAST 

479 

11,2074 

035 05 1 


1022 





11,2075 

77244 0 

BPL 

1023 

REP 

2 

LAST 

480 

11,2076 

22101 1 


1024 

REP 

5 

WST 

480 

11,2077 

02665 0 


1025 

REP 

7 

LAST 

460 

11,2100 

03604 0 

STORE 

1026 





11,2101 

63345 0 

INI1VEL3 DI.OAD 

1027 

REP 

i 



11,2102 

27736 0 


1028 

REP 

6 

LAST 

480 

11,2103 

02665 0 


102802 





11,2104 

6 3 25 6 0 

UNIT 

102804 

REP 

4 

LAST 

479 

11,2105 

02657 1 


10'2806 





11,2106 

41456 0 

UNIT 

102808 





11,2107 

57435 1 

VXV 

10281 





11,2110 

00003 1 


10282 





11,2111 

77606 1 

PU9I 

10283 





11,2112 

71350 1 

LXA,i 

10284 

REP 

3 

LAST 

456 

11,2113 

03745 1 


10285 





11,2114 

00023 0 


10286 





11,2115 

62040 1 

BW 


USBR>S pace no. 29 B 4 S3 


R2VEC 

DELLT 4 

B2VEC EQ RTARG 


TDESIHH) 

VUMD 

TDESIHED EQ L®LX,T4 ' 


OD 

initialize PL TO oD 


RINIT 

MPAC EQ RINIT <+29> 


poai 

UNIT 

UNIT(RI) (+1) 

(PL 6 D) 

VINIT 

IW 

RIABOl 

MPAC EQ UNIT(RI) X VI (+8) 


DOT 

CLEAR 

TSMPrURT.UHI (4-2) 

(PL oD) 

COZf4 

NCIWSR 

cozya 

»T 

' 


INITVEL3 

NOfWSR 

UN CALCULATED IN LAMBERT 


PUSH 


(PL 60) 

H2VEC 

RC TO 6D (4-29) 


PDVL 

RC TO MPAC, ABvAL(RC) (4-29) TO ODIPL 2D) 

VPROJ 

UN 

BVSU 


(PL 8 D) 

vxsc 

H2VEC 

SLQAD 

zerovec 

ITCTO 

VLOAD 

INnvEL3 


(PL oD) 

R2VEC 

RTARGl 



PDVL 


(PL 2D) 

HJEARTH 

B2VEC 

POSITIVE VAll® 


PDVL 

RlVBC 

2D = UNIT<R2VEC) 

(P(, 80) 

puai 

BD = UNIT(RlVEC) 

(Pl,140) 

VCCMP 

2D 

DLOAD 

RlXl 

18D 

-N = LNIT(R2VEC) X UNIT(RlVEC) 

(P(,20D) 

INCR.i 
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10287 




11,2116 

22120 1 


♦2 


10288 




11,2117 

77767 1 

DEC 

-8. 


10289 




11,2120 

67310 1 

INCR.i 

SLQAD 


1029 




11,2121 

00012 1 


lOD 


10291 

REP 

4 LAST 

463 

11,2122 

00047 1 


XI 


10292 




11,2123 

77230 0 

BHIZ 

VLOAD 

(PL14D) 

10293 




11,2124 

22126 1 


+2 


10294 




11,2125 

41476 1 

VCOIP 

puai 

(PL20D) 

10295 




11,2126 

77775 1 

VLOAD 


(PL14D) 

10296 




11,2127 

50235 0 

VXV 

DOT 

(PL 2D) 

1032 




11,2130 

71244 0 

BPL 

DLOAD 

(PL OD) 

1033 

REP 

1 


11,2131 

22133 0 


INI1VEL4 


1034 




11,2132 

41476 1 

DCCMP 

puai 

(PL 2D) 

1035 




11,2133 

67154 0 

1N11VEL4 U(A,2 

SXA,2 

1036 




11,2134 

00000 1 


OD 


1037 

REP 

2 LAST 

94 

11,2135 

02674 0 


GBCMsai 


R1038 

. SET 

INPUTS UP FOR LANBERT 





1039 




11,2136 

45150 1 

LXA.I 

CALL 


1040 

REP 

4 LAST 

480 

11,2137 

03745 1 


RTXl 


R1041 

OPERATE THE 

LAMBERT CCNIC ROUTINE (CCttSlELT SUBRCUTINE) 


1042 

REP 

1 


11,2140 

25215 0 


la«ert 



DELBIE THRU 4521 

arrived at SOLLrriCN is good enough according to SLIOTOjY wider bclinds. 


11,2141 TT214 0 CLEAR VLCMD 

REP 2. LAST 479 11,2142 00675 0 GUESSW 

RET 3 LAST 458 11,2143 02746 0 WEC 

STORE CALCULATE) INITIAL VELOCITY (ffiOJIHED IN VIPHIME 


REP 4 LAST 457 11,2144 17612 1 


STOOL VIPRIME 


INITIAL velocity RBOJIHI® (+7) 


IP NUMIT IS 2BRO, CCNTINUB AT INITVBLB, OWERWISE 
SET UP INPUTS for ENCkB INTEGRA TICN ( INTEGRVS) . 


1054 

RBP 

3 

LAST 

4T9 

11,2145 

02704 

0 


VTARGTAG 

1055 





11,2146 

45030 

0 

bhiz 

CAU, 

1050 

REP 

1 



11,2147 

22224 

0 


INITVEJLt 

105T 

REP 

7 

■ LAST 

471 

11,2150 

27371 

1 


INTSTVALL 

1061 





11,2151 

43135 

1 

SLOAD 

CLEVAR 

1062 

REF 

4 

LAST 

479 

11,2152 

03747 

0 


RTX2 

1063 

REP 

3 

LAST 

471 

11,2153 

00263 

0 


MCXNFLAG 

1064 





11,2154 

43030 

0 

BHIZ 

SEir 

1065 

REP 

1 



11,2155 

22157 

1 


INHVEJ.5 

1066 

REP 

4 

LAST 

481 

11,2156 

00063 

1 


MOCNPIAG 

106T 





11,2157 

77775 

1 

INnvEl.5 VLOAD 


106B 

REP 

8 

LAST 

480 

11,2160 

03570 

0 


RINIT 

1069 

REP 

5 

LAST 

480 

11,2161 

02657 

1 

STORE 

RlVEC 


! 
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1070 

REF 

5 

lAST 

471 

11,2162 

25535 

0 

STCVL 

HCV 

1071 

REP 

5 

LAST 

481 

11,2163 

03&12 

1 


VIPRIW 

1072 

REP 

5 

lAST 

471 

11,2164 

15543 

1 

STOOL 

VtV 

1073 

REP 

6 

last 

467 

11,2165 

03503 

1 


INTlie 

1074 

REP 

5 

LAST 

471 

11,2166 

01517 

0 

STORE 

TET 

1075 





11,2167 

43015 

1 

DAD 

OEAR 

1076 

REP 

6 

LAST 

480 

11,2170 

03423 

1 


I3ELLT4 

1077 

HEP 

3 

last 

471 

11,2171 

01673 

1 


INTYPPLO 

1078 

REP 

T 

last 

471 

11,2172 

34041 

0 

STCALL TDECi 

1079 

ffiP 

2 

LAST 

471 

11,2173 

27066 

1 


INTEQRVS 

1080 





11,2174 

77TT5 

1 

VLOAD 


1081 

REP 

1 



11,2175 

00025 

0 


VATTl 

1082 

REP 

2 

LAST 

94 

11,2176 

02705 

1 

SIOBB 

VTARGET 

R1083 

IP 

ITEHATICN COUTTER (ITCTR) 

EO NO. 

IieRATlCNS 

(NUMIT) 

, CCNTINUE 

R1084 

DftlVEUC, 

OIHERIVISB reiterate LAMBERT AND ENCkE 



1085 





11,2177 

63154 

1 

LXA,2 

inch, 2 

1086 

REP 

3 

LAST 

480 

11,2200 

035 04 

0 


ITCTR 

1087 





11,2201 

00001 

0 


ID 

1088 





11,2202 

55134 

1 

SXA,2 

XSU,2 

1089 

REP 

4 

LAST 

482 

11,2203 

03504 

0 


ITCTR 

1090 

REP 

4 

LAST 

481 

11,2204 

02703 

1 


VTAHQT«0 

1091 





11,2205 

46135 

1 

SLOW 

BHIZ 

1092 

REP 

2 

LAST 

450 

11,2206 

00050 

1 


X2 

1093 

94 nn < 

REP 

1 



11,2207 

22221 

0 


INITVELe 


INCHENENT IlCTR 


IP SP(MPAC) EO 0, CCNTINUE AT INITVELC 


B1095 OFFSET (XNIC TARGET VECTOR 


1096 





11,2210 

52375 

1 

VLOAD 

VSU 

1097 

REP 

8 

LAST 

480 

11,2211 

03604 

0 


HTARGl 

1098 

REP 

1 



11,2212 

00017 

1 


HAITI 

1099 





11,2213 

77655 

1 

VAD 


1100 

REP 

7 

LAST 

480 

11,2214 

02665 

0 


R2VEC 

1101 


6 

LAST 

482 

11,2215 

16665 

0 

STODL 

R2VEC 

1102 

RBP 

5 

LAST 

480 

11,2216 

036 30 

1 


002X4 

1103 





11,2217 

77650 

1 

GOTO 


1104 

REP 

1 



11,2220 

22056 

1 


1NITVEI,2 

R1105 

COMPUIB the delta VELCEITY 




1106 





11,2221 

77775 

1 

lNnVS.6 VLOAD 


1107 

REP 

9 

LAST 

482 

11,2222 

02665 

0 


R2VEC 

1108 

REP 

9 

LAST 

482 

11,2223 

03604 

0 

STORE 

HTARGl 

1109 





11,2224 

52375 

1 

INITVELt VLOAD 

VSU 

1110 

REP 

6 

LAST 

482 

11,2225 

03612 

1 


VIPRIME 

nil 

REP 

7 

LAST 

480 

11,2226 

035 76 

0 


VINIT 

1112 

US' 

9 

LAST 

472 

11,2227 

27646 

0 

STOVL 

DELVESTS 

1113 

REP 

3 

LAST 

482 

11,2230 

02705 

1 


ATTARCffiT 

1114 

REP 

4 

LAST 

457 

11,2231 

03620 

0 

STORE 

VTPRIME 

1115 





11,2232 

46135 

1 

SLOAD 

BHIZ 

1116 

REP 

5 

LAST 

481 

11,2233 

03747 

0 


R1X2 




CCNTINUE iterating AT INnvEl, 2 ' 


DEl.VEETs = VIPRIiME-VINIT (+7) 


I 
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HIT 

HEP 

i 



11,2234 

22251 

1 


Miivax 

lllTl 





11,2235 

T057S 

1 

VLtMD 

VSH2 

111T2 

HEP 

s 

LAST 

482 

11,2238 

03820 

0 


VTPRIMB 

1118 

HEP 

6 

LAST 

483 

11,223T 

27620 

0 

STOVL 

VTPRIf® 

1119 

REP 

T 

LAST 

482 

11,2240 

03612 

1 


VIPRI>B 

1120 





11,2241 

77742 

0 

VSR2 


1121 

REP 

8 

LAST 

483 

11,2242 

27812 

1 

snvL 

VIPRI}« 

1122 

REP 

10 

LAST 

482 

11,2243 

03804 

0 


K»HGl 

1123 





11,2244 

77742 

0 

VSR2 


1124 

REP 

11 

LAST 

483 

11,2245 

27604 

0 

STOVL 

RlSEGl 

1125 

REP 

10. 

LAST 

482 

11,2246 

03646 

0 


DBLVEET3 

1128 





11.2247 

77742 

0 

VSR2 


112T 

REP 

11 

LAST 

483 

11,2250 

03646 

0 

STORE 

DELVEET3 

1128 





11,2251 

77201 

1 

INITVELX SETPD 

VLXMD 

1129 





11,2252 

00001 

0 


OD 

1130 

REP 

12 

LAST 

483 

11,2253 

03604 

0 


RWRGl 

1131 

REP 

8 

LAST 

479 

11,2254 

37415 

0 

SlCALL RWHG 

1134 

REP 

12 

LAST 

479 

11,2255 

01340 

1 


NQIWEX 


R113S 

H1138 K® OP INITVEL ROUTINB 
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P34-P35. PT4-PTS 


USEHaS PAGE NO. 33 


MIDGIM 


MOD NO. 0 , by WILLMAN, SUBROUTINE BENDGUID, LOO P 34-P35, P74-P75 
REVISION 03, IT FEB 97 


IE THE active VHIICLE IS DOING THE CCMPUTATION, MIDGIM CCMPUIES 
THE POSITIVE MIDDLE OIMBAL ANO^E OP THE ACTIVE VHIICLE TO THE INPUT 
delta velocity VECtCSI (oD in push LIST), OTHETCYISE 

MIDGIM CCNVERTS THE INPUT DELTA VELOCITY VECTCB PRCM INERTIAL COORDIN- 
ATES TO LOCAL VERTICAL COORDINATES OP THE ACTIVE VHIICLE. 


.. inputs .. 


SEANING 


UNITS/SCAL INO/MCBE 


AVFLAG INT FLAG - 0 IS CS4 ACTIVE, i IS LEM ACTIVE 
CQMPUIER INT FLAG - 0 IS LEM CCMPUTER, 1 IS CSM CCF5PUIER 


RINIT active VEHICLE RADIUS VECTOR 

VINIT active VEHICLE VELOCITY VECTOR 

OD (PL) active VHIICLE DELTA VELOCITY VECTOR 


METEHS/CSEC (+7) VT 
EBIEHS/CSEC (+7) VT 

serERS/csEC (+ 7 ) vr 


.. OUTPUTS 


eeaning 


units/scaling/mcc® 


•tMGA + MIDDLE OIMBAL ANGLE 
DELVLVC DELTA VELOCITY VECTOR IN LV COORD. 


MGLVFLAG INT FLAG - 0 IS +MGA CCMPUTBD, i IS DELVLvC COIP. 


RBVOLutICNS (+0) DP 
SeiERS/CSEC (4.7) VT 


CALLING sequence .. 


CALL 

MIDGIM 

(REIURN - ALWAYS) 




NO SUBROUTINES CAUH) .. 


debris - BRASEABLB TEMPORARY USAGE 


A,0,L, Puai LIST, MPAC. 


ALAR43 - NONE . . 
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Pi 185 MIDOtE GIMBAL ANC3LB CCMPUIATIQN. 


1168 

BEE 

1 



04,2000 


STLCC MIDDOIM 

1167 





04,2651 


BA»C 


1168 

BEE 

1 





COUNT* SS/MIDG 

1169 





04,2651 

20000 0 halerev 

2pec 

1 B-i 

1169 





04,265 2 

00000 1 



ino 





04,-2653 

43014 0 MIDOIM 

BCN 

BOPP 

1171 

BEE 

1 



04,2654 

01312 0 


AVELAO 

1172 

BEE 

1 



04,2655 

10673 1 


MIDGIMi 

1173 

BEE 

1 



04,2656 

02747 1 


CCMPUTER 

11T4 

REP 

1 



04,2657 

10676 1 


(KT.LVC 

.B1175 

CCMPOIE 

♦MGA IP AVFLAG AND CCMPUTER HAVE CPPOSITE VALUES. 

1176 





04,2660 

53575 0 get+moa 

VLQAD 

UNIT 

117T 





04,2661 

72441 0 

DOT 

a,i 

1178 

BEE 

3 

LAST 

169 

04,2662 

01744 1 


flEE»WAT 

1179 





04,2663 

51136 1 

AflCsm BPL 

1180 

I«E 

1 



04,2664 

10670 1 


ffiTMQA 

1181 





04,2665 

43215 0 

DAO 

DAO 

1182 

BEE 

1 



04,2666 

10652 1 


halerev 

1183 

REP 

2 

LAST 

485 

04,2667 

10652 1 


HALEREV 

1184 

BH' 

6 

LAST 

473 

04,2670 

03626 0 SElMaA 

STORE 


1185 





04,2671 

43414 1 

CLR 


1186 

REP 

1 



04,2672 

02675 1 


MGLVFIV^G 

1187 





04,2673 

77614 1 MIDGIMi 

BCPP 


1188 

REP 

2 

LAST 

485 

04,2674 

02747 1 


CCMPUIER 

1189 

BEE 

2 

LAST 

473 

04,2675 

10660 0 


GBT+MQA 

R1190 

(XMPUIB DELVLVC IE AVFLAQ AND CCMPUTER HAVE SAME VALUES 


1191 





04,2676 

53575 0 GET.LVC 

vuwo 

INIT 

1192 

BEE 

« 

LAST 

481 

04,2677 

03570 0 


RINIT 

1193 





04,2700 

77676 0 

VCCMP 


1194 





04,2701 

00023 0 

STORE 

ISD 

1195 





04,2702 

53435 0 

vxv 

UNIT 

1196 

BEE 

8 

LAST 

482 

04,2703 

035 7 6 0 


VINIT 

1197 





04,2704 

00015 0 

STORE 

I2D 

1198 





04,2705 

53435 0 

VXV 

UNIT 

1199 





04,2706 

00023 0 


18D 

1200 





04,2707 

24007 0 

STOVL 

6D 

1201 





04,2710 

00001 0 


OD 

1202 





04,2711 

76521 0 

MXV 

VSLl 

1203 





04,2712 

00007 0 


6D 

1204 

REE 

9 

LAST 

469 

04,2713 

03405 0 

STORE 

DEI.VLVC 

1205 





04,2714 

43414 1 

SET 

RVO 

1206 

REP 

2 

LAST 

485 

04,2715 

02475 0 


,MC3LVPL4G 

H1207 

. . + 

. , ©O OP MIDGIM ROUTINE 

. i . . . 
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(PL OD) V (tTl TOMPAC, LNITIZE UV (+1) 
dot W with « stable M&BBR) AND RESCALE 
PRCM +2 TO *1 FOR ASIN ROUTINE 


CCNVBHT -«3A to *MC5A By 
ADDING CUE HEVtUrriCN 


CLEAR MGLVFLAG TO INDICATE +MaA CALC 
AND EXIT 


(PL 6D) R (+29) IN MPAC, UNITIZE UR 


U(-R) 

U(-R) TO ISD 

U(-B)*y EO V«J(R), UIWl) 


0(V4R) TO 12D 

U(v4R)4u(-R), U((VAR)4(-R)) 


TRANSEOKMATICN MATRIX IS IN 6D (+l) 
delta V (+7) IN OD 

CCNVEHT FRCM INER COOR TO Ly COOR (+8) 
AND SCALE +7 IN MPAC 
STORE IN DELVI.VC (+7 ) 
set MH.VFLAG To indicate LvC CALC 
AND EXIT 









ASSB4BLE REVISION 249 

OP AGO PROGRAM COLOSSUS Blf NASA 2021111-041 

20’35 OCT. 28,1988 SMOOCH 

.007 PAGE 

L 

P34- 

-P35 

, P74-P75 





USEH«S page no. 35 

B4 S3 

P1208 










1209 




04,2716 

77160 0 

SELECMHJ AXC,1 

AXT,2 



1210 




04,2717 

00002 0 


2D 



1211 




04,2720 

00000 1 


OD 



1212 




04,2721 

77614 1 

BORP 




1213 

RBP 

3 

LAST 471 

04,2722 

04343 1 


Q40affLO 



1214 

REP 

1 


04,2723 

10727 1 





1215 




04,2724 

77160 0 

AXC.I 

AXT,2 



1216 




04,2725 

00012 1 


lOD 



1217 




04,2726 

00002 0 


2D 



1218 




04,2727 

66143 1 

SETT4UEH DLCMD* SXA.l 



1219 

REP 

1 


04,2730 

11635 1 


KTIftBLE +4,1 



1220 

REP- 

5 

LAST 481 

04,2731 

03745 1 


HTXl 



1221 

REF 

2 

LAST 124 

04,27 32 

23752 0 

SrQDlA= 

RTSll/I^J 



1222 

REP 

2 

LAST 486 

04,2733 

11627 1 


MITABLE -2,1 



1223 




04,2734 

54214 1 

BQPP 

SR 



1224 

REP 

4 

LAST 488 

04,2735 

04343 1 


CMOCNPLG 



1225 

REP 

1 


04,2736 

10740 0 


RIWi>»J 



1226 




04,2737 

20807 1 


6D 



1227 

REP 

2 

lAST 124 

04,2740 

03750 0 

RTHNMU STORE 

RTW 



1228 




04,2741 

43134 0 

SXA,2 

Clear 



1229 

REP 

6 

last 482 

04,2742 

03748 1 


RK2 



1230 

REP 

4 

LAST 474 

04,2743 

01271 1 


PINALPU3 



1234 




04,2744 

77650 1 

GOTO 




1235 

RPJ? 

3 

LAST 460 

04,2745 

73005 0 


VN1645 
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P1230 PERIAPO 


R1237 MOD NO -1 LOO SECTION - P34-P35, P74-P75 

R1238 MOD BY WHITE. P DATE 18JAN68 

R1239 PUNOrlONAL DESCRIPTION 

R1240' THIS SlflROtrrlNE CCMPUTBS THE TWO BODY APOCESITER AND PERICENTER 

Ri241 altitudes GIVEN THE POSITION AND VELOCITY VECTCSIS FOR A POINT CN 

R1242 THE TRAJECtCHY AND THE PRIMARY BODY. 

R1243 SETRAD is CALLED TO DETERMINE THE RADIUS CP THE PRIMARY BODY. 

R1244 APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII CP APOCENTEH AND 

R1245 PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY. 

R124S CALLING SEQUENCE 


R124T ■ L CALL 

R124a L»1 PERIAPO 

R1249 • L*2 (RBTUroi - ALWAYS) 

R1250 INPUT 




R12SB 

R12S9 

ID 

2D 

APOCENTBR RADIUS IN NETERS 

SCALE FACTOR - EARTH *29, MOCN +27 

R126(> 

R1261 

(2) 

4D 

APOCH7TEH ALTITUDE IN METERS 

SCALE FACTOR - EARTH +29, MOCN P27 

R1262 

R12S3 

<3) 

6D- 

PERICENTER RADIUS IN METERS 

SCALE FACTOR - EARIH +29, MOCN +27 

R12S4 

R1265 

(4) 

8D 

PERICENTER ALTITUDE IN METERS 

SCALE factor - EARTH +29, MOCN +27 

R1266 

B128T 

(5) 

BOC 

eckentricity op ccnic trajectory 

SCALE factor - +3 

R1268 

R1269 

(6) 

XWCALT 

RADIUS CP THE PRIMARY BODY IN METERS 
SCALE FACTOR - EARTH +29, MOCN +27 

R12T0 

<7) 

PUSHI^ 

equals lOD 

B1271 

auBRQurlNBS USED 


R12T2 

SerRAD 




R1251 

(D 

RVEC 

POSITION vector in METERS 

H12S2 



SCALE FACTOR - EARTH +29, MOCN +27 

R12S3 

(2) 

WEC 

VELCCITY vector IN METERS/CENTISECCND 

R1254 



SCALE FACTOR - EARTH +7, MOCN +5 

R1255 

<3) 

XI 

PRIMARY BODY INDICATOR 

R1256 



earth -2, MOCN -10 

R125T 

aiTPUT 
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P34-P35, PT4-P75 

Apsioes 


REP 1 


HEP 3 LAST 488 


REF 4 LAST 488 
REP 14 LAST 488 


I 


22,2000 

22,3310 


22.3310 

22.3311 


REF T LAST 486 

REF 4 LAST 481 

REP 6 LAST 486 

HEP 2 LAST 456 


REP 13 lAST 483 
REP. 1 

REP 2 LAST 120 
REP 1 


22.3312 

22.3313 

22.3314 

22.3315 

22.3316 

22.3317 

22.3320 

22.3321 

22.3322 

22.3323 

22.3324 

22.3325 

22.3326 

22.3327 

22.3330 

22.3331 

22.3332 

22.3333 

22.3334 

22.3335 

22.3336 

22.3337 


53754 1 
03746 1 
57176 0 
26746 0 
53750 0 
03745 1 
57176 0 
02657 1 
45020 1 
01340 1 
45340 1 
37458 1 
25671 0 
41401 1 
00003 1 
65225 1 
03458 0 
00001 0 
45206 1 
03456 0 
52006 0 
01340 1 


USER«S PAGE NO. 37 


SETLOC APOPERI 

bank 


CQIWT4 $s/PERAP 


00302 0 
17755 0 


6373338 B-29 STANDARD RADIUS OP PAD 37-8. 


= 20 909 901.57 PT 


PERIAPOi IjcA,2 VSR* 
RTX 2 


0,2 

SKVL WEC 


LXA , 1 VSR* 
RTKl 


PEHIAPO STO 


0,2 

STORE RVEC 


STO CALL 

NCR4EX 
SBTRAD 
sicall XXXALT 
APSIDES 


sbtpo 

puai 

2D 

2D = APOCENTER RADIUS 

B29 

OR 827 

DSU 

POOL 

XXXALT 

OD 

4D = APOra® ALTITUDE 

B29 

OR B27 

PUSI 

DSU 

XXXALT 

6D = PEHICENTEH RADIUS 

B29 

OH B27 

PUSH 

goto 

NOHMEX 

8D = PERIGEE ALTITUDE 

B29 

OR B2T 
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P1301 

setrad 









1302 





22,3340 

41545 

0 

setrad 

DLCMD 

poai 

1303 

BEF 

1 



22,3341 

05311 

1 



BPAD 

1304 





22,3342 

63130 

0 


axA.i 

INCB,2 

1305 

BEE 

3 

LAST 

482 

22,3343 

00047 

1 



X2 

1306 





22,3344 

00002 

0 



2D 

1307 





22,3345 

46135 

1 


SLOW 

BHIZ 

1308 

BEE 

4 

LAST 

489 

22,3346 

00050 

1 



X2 

1309 

REE 

1 



22.3347 

45353 

0 



ffiTRADX 

1310 





22,3350 

51575 

1 


VLO\D 

ABVAL 

1311 

BEE 

2 

LAOT 

175 

22,3351 

02026 

1 



BL8 

1312 





22,3352 

77725 

1 


POOL 


1313 





22,3353 

43545 

1 

sbtbaox 

DLCttD 

RV^ 


USBRoiS PAGE NO. 38 B4 S3 



1 


I 




I 


\ 
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P1314 

PHECSET 








1315 





22,3354 

77620 0 

PRECSET 

STO 


1316 

HEP 

15 

LAST 

488 

22,3355 

01340 1 



NOR«V 

131T 

REP 

1 



22,3356. 

36635 1 


SICALL TDECp 

1318 

REP 

2 

LAST 

32 

22,3357 

27036 1 



IB4PHEC 

1319 





22,3360 

77624 1 


CALL 


1320 

REP 

1 



22,3361 

4537 2 0 



LH^STOHE 

1321 





22,3362 

77745 1 


DLQAD 


1322 

HEP 

2 

LAST 

490 

22,3363 

0 26 35 0 



TOEC2 

1323 

HH> 

8 

LAST 

482 

22,3364 

34041 0 


SICALL, ireci 

1324 

REP 

2 

LAST 

32 

22,3365 

27022 1 



C94PHEC 

1325 





22,3366 

77624 1 


CALL 


1326 

REP 

1 



22,3367 

45402 0 



CMSTORE 

132T 





22,3370 

77650 1 


GOTO 


1328 

RBP 

16 

LAST 

490 

22,3371 

01340 1 



NOEWEX 

1329 





22,3372 

43175 0 

LEMSTOBE VLQAD 

BCFP 

1330 

REP 

5 

LAST 

471 

22,3373 

00001 0 



ratt 

1331 

REP 

2 

LAST 

485 

22,3374 

01352 1 



AVFLAG 

1332 

REP 

2 

LAST 

464 

22,3375 

45406 1 



PASSIVE 

1333 

REP 

15 

LAST 

471 

22,3376 

27540 0 

active 

STOVL 

RACT3 

1334 

REP 

2 

LAST 

467 

22,3377 

00007 0 



VATT 

1335 

REP 

T 

LAST 

469 

22,3400 

03546 0 


STORE 

VACT3 

1336 





22,3401 

77616 0 


RVO 


133T 





22,3402 

43175. 0 

CSISTORE vlcmd 

BOFP 

1338 

REP 

6 

LAST 

490 

22,3403 

00001 0 



RATT 

1339 

REP 

3 

LAST 

490 

22,3404 

01352 1 



AVFLAG 

1340 

REP 

2 

LAST 

464 

22,3405 

45376 1 



active 

1341 

REF 

T 

LAST 

467 

22,3406 

27554 0 

PASSIVE 

STCVL 

RPASS3 

1342 

REP 

3 

LAST 

490 

22,3407 

00007 0 



VATT 

1343 

REP 

T 

LAST 

467 

22,3410 

03562 0 


STORE 

VPASS3 

1344 





22,3411 

77616 0 


RVO 



I 
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>1345 VECailPr 


1346 




22,3412 

53754 1 

VECSHIFT LKA,2 VS51* 

1347 

REP 

8 lAST 

488 

22,3413 

03746 1 

R1X2 

1348 




22,3414 

57176 0 

0,2 

1349 




22,3415 

63350 1 

LXA.l PDVL 

1350 

REF 

T LAST 

488 

22,3418 

03745 1 

RKl 

1351 




22,3417 

63257 1 

VSR* PDVL 

1352 




22,3420 

57176 0 

0,2 

1353 




22,3421 

77616 0 

RVO 
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P34-P35. P74-P75 


USERaS PAGE NO. 


354 SHU 

1355 

1356 REP 

1357 
1356 


SHIPTOl 


last 491 


22.3422 

22.3423 

22.3424 

22.3425 


53754 1 
03746 1 
57576 1 
77618 0 


ailFTRl L0CA,2 SL* 
H1X2 
0,2 

IM3 
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L P34-P35, PT4-P75 

I P1359 PBOGBAM DESCRIPTION 

K1380 SOSROOTINE NAME B38 OTT-OP-PIANE BamS2yOUS ROOTINB 

R1381 MOD NO. 0 DAtB 22 DSCE>SER 67 

R1382 MOD BY N.M.NEVILLE UH SECTION EXTENDED VERBS 

B1383 functional DESCRIPTION 

R1384 TO DISPLAY AT ASTRONAUT REOUEST LOC CALCULATED KaJDEZVOUS 
R1385 OUT-OP-PLANE PARAMETERS (Y , YDOT , PSD. (REOESTED BY DSKY). 

R1388 CALLING SEQUENCE 

R138T astronaut REQUEST THRQUCH DSKY V 90 E 

R1368 subroutines CALLED 

R1389 EXDSPRET 
R13T0 OOMARKP 
R13T1 CSNPREC 
R13T2 LByiPHEC 
B13T3 SGNAGHEB 
R13T4 LOADTIi® 

R13T5 normal Exit modes 

B1378 astronaut REQUEST THROUGH DSKY TO TEIWINATE PROtfflAM V 34 E 
B13TT alarm or abort EXIT MODES 
R13T8 none 
R13T9 OUTPUT 

R1380 DECIMAL DISPLAY OP TIME , Y , YDOT AND PSI 

R1381 DISPLAYED VALUES Y , YDOT , AND PSI , ARB STORED IN ERASABLE 

R1382 REGISTERS RANGE , RRATE AND RIHETA RESPECTIVELY. 

BI383 erasable INITIALIZATION REQUIRED 

B1384 CS4 AND LB*! STATE VECTORS 

R1385 debris 

R1386 C5ENTRALS A,0,L 

RJ38T OlHER THOSE USED BY THE AflCVE LISTED SUBEtOUTINES 

1388 20,2000 

1389 I®F 1 04,2000 

1390 04,2748 




bank 20 

SETLOC R38LM 
BANK 



USfflIoS PAGE NO. 42 E4 S3 


L 
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1391 

REF 

3 

LAST 

260 

E4,1728 

1392 

REP 

1 




1393 





04,2746 

1394 

REP 

106 

LAST 

447 

04,2747 

1395 

REF 

3 

LAST 

266 

04,2750 

1396 

HEP 

1 



04,2751 

1397 

REP 

93 

LAST 

476 

04,2752 

1398 

REF 

2 

LAST 

240 

04,2753 

1399 

HEP 

19 

LAST 

420 

04,2754 

1400 





04,2755 

1401 





04,2756 

1402 

IffiP 

4 

LAST 

494 

04,2757 

1403 





04,2760 

1404 

I®P 

1 



04,2761 

1405 

REF 

23T 

LAST 

479 

04,2762 

1406 

REP 

49 

LAST 

474 

04,2763 

1407 





04,2764 

1408 

REF 

1 



04,2765 

1409 

REF 

9 

LAST 

490 

04,2766 

1410 

REF 

2 

LAST 

450 

04,2767 

1411 





04,2770 

1412 

REP 

4 

LAST 

490 

04,2771 

1413 

REF 

7 

LAST 

490 

04,2772 

1414 

REF 

4 

LAST 

494 

04,2773 

1415 





04,2774 

1416 





04,2775 

1417 





04,2776 

1418 

REF 

1 



04,2777 

1419 

REF 

2 

LAST 

451 

04,3000 

1420 

HEP 

10 

LAST 

494 

04,3001 

1421 

REF 

2 

LAST 

450 

04,3002 

1422 





04,3003 

1423 

REP 

5 

LAST 

494 

04,3004 

1424 

REF 

8 

LAST 

494 

04,3005 

1425 





04,3006 

1426 

REF 

3 

LAST 

494 

04,3007 

1427 





04,3010 

1428 





04,3011 

1429 





04,3012 

1430 

REF 

5 

LAST 

494 

04,3013 

1431 





04,3014 

1432 

. REF 

2 

LAST 

494 

04,3015 

1433 

REF 

9 

LAST 

277 

04,3016 

1434 





04,3017 

1435 





04,3020 

1436 

REF 

3 

LAST 

494 

04,3021 

1437 

REF 

5 

LAST 

277 

04,3022 

1438 





04,3023 


BBANK= HPASS38 
COUNT* $t/H36 


22 007 0 

R38 

ZL 


3 4714 1 


CAP 

ffiHO 

53*052 0 


DXOl 

Dspra^x 

3 3101 1 


CAP 

V08N16N 

0 4555 0 


TC 

bankcall 

20465 1 


CADR 

OOiARKP 

1 5423 0 


TCP 

erosxT 

1 2757 1 


TCP 

*2 

1 2751 1 


TCP 

-5 

53*052 0 


DXCH 

DSPTB«tC 

0 0006 1 


EXTSND 

1 3070 1 


BzF 

LHEQCHc 

52 155 1 

ASmOriM DXCH 

mpac 

0 6006 1 


TC 

INTPHET 

77634 0 


RTB 


45713 0 



DPMCDB 

34041 0 

R36INT 

STCALL TDECi 

27036 1 



OmPHEC 

63375 0 


VLOAD 

POVL 

00007 0 



vatt 

00001 0 



RATT 

02327 0 


STORE 

RPASS36 

63256 0 


UNIT 

POVL 

53435 0 


VXV 

UNIT 

77626 0 


SWDR 


61442 1 


STODL 

UNP36 

00015 0 



TAT 

34041 0 


STCAIX TI®Ci 

27022 1 



THISPREC 

63375 0 


VLOAD 

POVL 

00007 0 



VATT 

00001 0 



RATT 

77725 1 


POOL 


00015 0 



TAT 

24037 0 


STOVL 

30D 

41406 0 


PUSH 

puai 

63245 1 


BVSU 

POVL 

02327 0 



RPASS36 

72441 0 


DOT 

SLi 

02335 0 



UNP36 

26321 0 


STOVL 

RANGE 

00001 0 



OOD 

72441 0 


DOT 

SLi 

02335 0 



UNP36 

26323 1 


STCVL 

RRATE 

00007 0 



06D 


US&RoS PAGE NO. 43 B4 S3 


SET TIME OP EVENT TO ZERO FOR FIRST 
DISPLAY 


TERMINATE 

PROCEED 

recycle for ASTRONAUT INPUT TIME 


A-RBO zero goto CHECK L-HEG FOR ZERO 
A-RBG non-zero, TI* = ASTRO INPUT TI[« 


R 

P 


U 


velocity vector V OOD 

A 

SAVE TIME IN LOCATION 30D FOR REDISPIAY 

POSITION vector R in 06D AND 120 
A - - 

LINE OF SiaiT VECTOR R - R 120 

P A 

Y = U .R 
A 


Y = U .V 
A 
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1439 





04,3024 

41456 0 


UNIT 

PUSH 

U = UNIT! R ) I9D 

1440 





04,3025 

47235 0 


VXV 

VXV 

RA A 

1441 





04,3026 

00001 0 



ooo 

- - - - 

1442 





04,3027 

00023 0 



18D 

(U XV )XU =u 

1443 





04,3030 

53552 0 


VSL2 

UNIT 

BA A RA A 

144305 





04,3031 

77656 1 


UNIT 



1444 . 





04,3032 

24001 0 


STtVL 

OOD 

UNIT HORIZONTAL IN FORWARD DIB. OOD 

1445 





04,3033 

00023 0 



leD 


1440 





04,3034 

74241 0 


DOT 

VX9C 

- 

144T 





04,3035 

00015 0 



I2D 

U 

1448 





04,3036 

77752 1 


va,2 


L 

1449 





04,3037 

53445 1 


BVSU 

UNIT 


144905 





04,3040 

77656 1 


UNIT 



1450 





04,3041 

50206 0 


puai 

DOT 

LOS projected into HORIZONTAL 12D 

1451 





04,3042 

00001 0 



OOD 

WANE 

1452 





04,3043 

65552 0 


SLl 

ARCCOS 

- - 

1453 

BBF 

6 

LAST 

277 

04,3044 

26325 1 


STCVL 

KIHETA 

PSI= ARCCOSCU .U ) 

1454 





04,3045 

50235 0 


VXV 

DOT 

A L 

1455 





04,3046 

00001 0 



OOD 


1450 





04,3047 

71244 0 


BPL 

DLOAD 


1457 

HEP 

1 



04,3050 

11055 1 



R38'W02 


1458 

REP 

1 



04,3051 

11467 1 



LODPMAX 


1459 





04,3052 

776 25 0 


DSU 



1480 

HEP 

7 

LAST 

495 

04,3053 

02325 1 



RTHBTA 


1401 

REP 

8 

LAST 

495 

04,3054 

02325 1 


STCBB 

RTHETA 


1462 





04,3055 

47145 1 

R36'IAG2 

DLOAD 

RIB 


1403 





04,3056 

00037 0 



30D 


1464 

REF 

•2 

LAST 

419 

04,3057 

45541 0 



SGHAGREE 


1405 

REP 

5 

LAST 

494 

04,3060 

01052 1 


STORE 

DSPTEMX 


1466 





04,3061 

77776 1 


EXIT 



1467 

RES' 

1 



04,3062 

3' 3102 1 


CAP 

VO6N9ON 

DISPLAY y , VDOT , AND PSI 

1468 

REP 

94 

UST 

494 

04,3063 

0 4555 0 


TC 

bankcall 


1469 

REP 

3 

LAST 

494 

04,3064 

20465 1 


CADR 

GCMAHCP 


1470 

REP 

20 

LAST 

494 

04,3065 

1 5423 0 


TCP 

ENDBXT 

TERMINATE 

1471 

REP 

21 

LAST 

495 

04,3066 

1 5423 0 


TCP 

ENDEXT 

PROCEED , END OP PROGRAM 

1472 

REP 

2 

LAST 

260 

04,3067 

1 2751 1 


TCP 

R36 +3 

REDISPLAY CUTPUT 

1473 

REP 

58 

LAST 

442 

04,3070 

56 001 0 

lregchk 

XCM 

L 


1474 





04,3071 

0 0006 1 


EXTEND 



1475 

REP 

1 



04,3072 

1 3075 1 


BZP 

©nTIM2 

L-RBG zero ,SET TIME = PRESENT TIME 

1476 

REP 

57 

LAST 

495 

04,3073 

56 001 0 


XCH 

L 

L-REG NCN ZERO, TIME r ASTRO INPUT TIME 

1477 

ffiP 

1 



04,3074 

1 2762 1 


TCP 

ASTROrIM 


1478 

REP 

50 

LAST 

494 

04,3075 

0 6006 1 

EI<TnM2 

TC 

INTPRET 


1479 





04,3076 

52034 1 


RTB 

GOTO 


1480 

HEP 

4 

LAST 

460 

04,3077 

45505 0 



IXADTIME 


1481 

REP 

1 



04,3100 

10766 1 



R36INT 


1482 . 





04,3101 

01420 0 

VO8NI6N 

VN 

00616 


1483 





04,3102 

01532 1 

VO6N9ON 

VN 

00690 



I 
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P3000 






3001 





34,2002 

3002 

REF 

1 



35,2000 

3003 





35,3150 

3004 

REP 

1 




30041 

REP 

1 



35,3150 

30042 

HEP 

17 

LAST 

430 

35,3151 

30043 

REP 

12 

LAST 

473 

E4,1T70 

30044 

REP 

2 

LAST 

32 

35,3152 

30044 





35,3153 

30045 

REP 

3 

LAST 

473 

35,3154 

30046 

REF 

95 

LAST 

495 

35,3155 

30047 

HEP 

3 

LAST 

473 

35,3156 

3004B 

HEP 

9 

LAST 

231 

35,3157 

3004B5 

REP 

21 

LAST 

385 

35,3160 

30049 





35,3161 

300495 

REF 

1 



35,3162 

3005 

REP 

7 

LAST 

260 

35,3163 

30051 

REP 

23 

LAST 

380 

35,3164 

300515 





35,3165 

30052 





35,3166 

30053 

HEP 

1 



35,3167 

30054 





35,3170 

30055 

REP 

1 



35,3171 

3006 

REP 

96 

LAST 

496 

35,3172 

3007 

REP 

4 

LAST 

495 

35,3173 

3008 

REP 

1 



35,3174 

3009 

REP 

2 

LAST 

496 

35,3175 

3010 

REF 

1 



35,3176 

3014 

REF 

51 

LAST 

495 

35,3177 

3015 





35,3200 

3016 

REP 

1 



35,3201 

3017 





35,3202 

3018 

REP 

1 



35,3203 

3019 

REF 

52 

LAST 

496 

35 , 3204 

3020 





35,3205 

3021 

REF 

1 



35,3206 

3022 





35 , 3207 

3023 

REF 

9 

LAST 

494 

35,3210 

3024 

REF 

3 

LAST 

89 

35,3211 

3025 





35,3212 

3029 

REF 

10 

LAST 

494 

35,3213 

3030 





35,3214 

3031 

REP 

5 

LAST 

'481 

35,3215 

30315 





35,3216 

3032 





35,3217 


bank 34 
SETLOC R31 

bank 


COUNT* $S/B31 


3 4752 0 

R31CALL 

CAP 

PRIO3 

0 5042 1 


TC 

pindvac 



EBANK= 

SUBEXIT 

03204 1 


2CADR 

V83CALL 

72064 0 




3 4734 0 

DSPDEIAY CAP 

ISEC 

0 4555 0 


TC 

bankcall 

01732 0 


CADR 

DELAYJCB 

3 1044 0 


CA 

Extvbact 

7 4677 1 


MASK 

BIT12 

0 0006 1 


Extend 


1 3154 0 


BzP 

dspdelay 

3 0105 0 

DISPN5X 

CA 

PLA0#BD9 

7 4707 1 


MASK 

BIT4 

0 0006 1 


extend 


1 3171 1 


BzP 

»3 

3 3310 0 


CAP 

VI6N54 

0 3172 0 


TC 

*2 

3 3311 1 


CAP 

VI6N53 

0 4555 0 


TC 

BANkCALL 

20465 1 


CADR 

gcnahkf 

0 5514 1 


TC 

B5GFE 

0 5514 1 


TC 

85 off 

1 3163 1 


TCP 

DISPNSX 

0 6006 1 

V83 

TC 

INTPRET 

77624 1 


CALL 


73426 0 



REDCEXTV 

77650 1 


CKTTO 


73207 0 



CCMPDISP 

0 6006 1 

V83CALL 

TC 

intpbbt 

77624 1 


CALL 


73312 0 



ST5ATEXTP 

52375 1 

CCMPDISP VLOAD 

VSU 

00001 0 



RATT 

02327 0 



RCNE 

51406 1 


puai 

ABVAL 

02321 0 


STORE 

RANGE 

77301 0 


NORM 

VIXWD 

00047 1 



XI 

77762 1 


VSRl 


53457 1 


VSIA< 

UNIT 
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TEST R31FIAQ ( IN SUNDANCE R31FIAG WILL 
ALWAYS BE SET AS R34 DOES NOT EXIST) 


R31 USE NCUN 54 
R34 USE NCUN 53 


EXTRAPOLATE STATE VECTORS 


BATT-RCNB TO OD 

meters B-29 


RATT-RCKE 




PD= 6 


PD= 0 





L R31 
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1 3033 





35,3220 

20201 0 


0,1 



3034 





35,3221 

52315 1 

POVL 

vsu 

UNITCLOS) TO oD 

PD= 6 

1 3035 

BEN 

6 

lAST 

494 

35,3222 

00007 0 


VATT 



3036 

BBP 

2 

LAST 

89 

35,3223 

02335 0 


VtWE 



3037 





35,3224 

77641 1 

DOT 


fVATT-VCNE) .UNITCLOSl 

PO= 0 

3039 





35,3225 

77752 1 

SLl 




3040 

HEP 

0 

LAST 

494 

35,3226 

36323 0 

SlCALL HRATE 

RANGE RATE M/Cs B-7 


1 3041 

REP 

1 



35,3227 

47432 1 


CDUTRIO 

TO INITIALI2E FOR 4NBS4(t 


I 30411 





35,3230 

77624 1 

CALL 




30412 

HEP 

1 



35,3231 

62000 0 


R34LOS 

NOTE. POL HJST = 0. 


3042 





35,3232 

53575 0 H34ANO 

VLOID 

UNIT 



3043 

REP 

4 

LAST 

49S 

35,3233 

02327 0 


RCNB 



3044 





35,3234 

77715 1 

PDVL 


UR TO OD 

PO= 6 

1 3045 

REP 

1 



35,3235 

15330 0 


THISAXIS 

UNITX for cm, UNITZ POR LM 


1 30452 





35,3236 

77214 0 

BCN 

VLCAD 

CrtC R31FIAO. CN=H31 THETA, 

0PP=R34 PHI 

30454 

REP 

1 



35,3237 

04713 0 


H31PIAO 



30455 





35,3240 

73242 1 


♦2 

R31-THBTA 


1 30456 





35,3241 

00015 0 


I2D 



j 30458 





35,3242 

77624 1 

CALL 




1 3046 

REP 

1 



35,3243 

47601 0 


^NRS^t* 



3047 





35,3244 

41505 1 

VXM 

PUSH 

UXOHZ TO 6D 

PD=12D 

3048 

HEP 

4 

LAST 

485 

35,3245 

01736 1 


REPS^^MT 



3049 





35,3246 

72431 1 

VPHQJ 

VS1,2 



3050 





35,3247 

00001 0 


OD 



^ 3051 





35,3250 

53445 1 

BVSU 

UNIT 



) 3052 





35,3251 

00007 0 


6D 



3053 





35,3252 

47315 0 

PCM, 

VXV 

UP/2 TO 12D 

PItl8D 

3054 

HEP 

5 

LAST 

497 

35,3253 

02327 0 


HCNE 



3055 

REP 

3 

LAST 

497 

35,3254 

02335 0 


VCNE 



3056 





35,3255 

47256 0 

UNIT 

VXV 



■■ 3057 

REP 

6 

LAST 

497 

35,3256 

02327 0 


RCNE 



3058 





35,3257 

63241 0 

DOT 

PCM, 

SIGN TO 12D, UP/2 TO MPAC 

PDrlsD 

3059 





35,3260 

00015 0 


I2D 



3060 





35,3261 

50372 1 

VSLl 

DOT 

UP.UXORZ 


3061 . 





35,3262 

00007 0 


6D 



3062 





35,3263 

72565 1 

SIGN 

SLl 



3063 





35,3264 

00015 0 


12D 



3064 





35,3265 

77726 1 

ACOS 




3065 

REP 

9 

LAST 

495 

35,3266 

26325 1 

STCVL 

RIHETA 



3066 

REP 

7 

LAST 

497 

35,3267 

02327 0 


RCNE 



3067 





35,3270 

51041 0 

DOT 

BPL 



3068 





35,3271 

00007 0 


6D 



' 3069 





35,3272 

73277 1 


♦5 



3070 





35,3273 

44345 0 

DLOID 

BDSU 

IP UXORZ.H NEG, RTHETA = 1 

- RTHETA 

3071 

REP 

10 

LAST 

497 

35,3274 

02325 1 


R3HETA 



3072 

REP 

5 

LAST 

469 

35,3275 

15340 1 


DPPOS4AX 



3073 

REP 

11 

LAST 

497 

35,3276 

02325 1 

STORE 

RIHBTO 

KIHBTA BETWEEN 0 AND 1 RE/. 


, 3074 





35,3277 

77776 1 

EXIT 




3075 

REF 

26 

LAST 

439 

35,3300 

3 4706 1 

CAP 

BIT^ 

HAVE WE BraiN ANSWERED 


30751 

REF . 

10 

I A ST 

496 

35,3301 

7 1044 1 

WSK 

EXTVBACT 




m 
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I- R31 

30T6 
30TT f 


30Te 

30T9 

3080 


REP 

REP 

REP 


30805 REP 

3081 

3082 
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LAST 


35,3302 

0 0006 

1 


Ext®© 



22 

495 

35,3303 

1 5423 

0 


Bzp 

ENDEXT 

YES, DIE 

11 

LAST 

49T 

35,3304 

4 1044 

1 


C3 

bxtvbact 


22 

last 

496 

35,3305 

7 4677 

1 


mask 

BIT12 


12 

last 

498 

35,3306 

27«044 

1 


AOS 

EXTVBACT 


1 



35,3307 

1 3177 

1 


TCP 

V83 





35,3310 

04066 

0 

V16N54 

VN 

1854 





35,3311 

04065 

0 

VI 6 N 53 

VN 

1653 
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K31 USERaS PAGE NO. 4 Efl S3 

THE STATBXTP SOBROUTINS DOES A PEECI3ICK EXTEAPOLATICN OF BOIH VSIICLES 
STATE VEOrCas TO PEESian' TIMS AND SAVES TH3>I AS BASE VECTCHS. 

IF servicer is OFF 

THIS vailCLBS BASE VECTOR IS CONIC BJCTRAPCLATH) TO 
PHE^rr TIKE AND SAVED AS RCNB, VO®. 

THE OnCR VBIICLES BASS VECTCH IS CCNIC EXTRAPOLATED 
TO THE SAME TIJO, THE OumiT BEING LEFT IN RATT, VATT. 

IF servicer is cn 

BONE. VONE ARE SET EQUAL TO HN, VN AND THE OlKER 
.vailCLBS STATE VECTOR IS FHSC. EXTRAPOLATED TO PIPTI^E. 






35,3312 

47020 0 

STATEXTP STO RIB 


REF 

1 



35,3313 

00112 0 

SlATEXlT 


REF 

5 

LAST 

495 

35,3314 

45505 0 

UMDTI!« 


REF 

11 

LAST 

494 

35,3315 

34041 0 

STCALL TlffiCi 


REF 

3 

LAST 

494 

35,3316 

27036 1 

OmPHEC 

GET BASE vectors 





35,3317 

77775 1 

VLOID 


HEP 

2 

LAST 

482 

35,3320 

00017 1 

BATTl 


REP 

1 



35,3321 

26225 0 

STOVL BASEOTP 

OmEH POS. 

REP 

2 

LAST 

482 

35,3322 

00025 0 

VATTi 


REP 

1 



35,3323 

16241 1 

STODL BASEOrv 

OIHER VEL. 

VBP 

A 

LAST 

494 

35,3324 

00015 0 

TAT 


REP 

1 



35,3325 

02272 1 

STORE BASBTI>E 


BEEP 

12 

LAST 

499 

35,3326 

34041 0 

STCALL TDECi 


REP 

3 

LAST 

494 

35,3327 

27022 1 

THISPHEC 






35,3330 

77775 1 

VLCftD 


REF 

3 

LAST 

499 

35,3331 

00017 1 

RATTl 


REP 

1 



35,3332 

26255 1 

SKVL BAffiTHP 

THIS POS. 

REF 

3 

LAST 

499 

35,3333 

00025 0 

VATTl 


REF 

1 



35,3334 

02263 1 

STORE RASETHV 

THIS VEL 





35,3335 

47014 1 HAvEBASE BttI RTfi 


REF 

1 



35,3336 

03711 0 

VSTFVAG 


REP 

1 



35,3337 

73413 0 

GBTBVN 

IP AVG CN ,GET BN BTC. 

REP 

6 

UST 

499 

35,3340 

45505 0 

LOADTM 


REF 

13 

LAST 

499 

35,3341 

34041 0 

STCALL TOeCi 

BEGIN set UP FOR CCNIC EXTBAP. FOR THIS 

REF 

B 

LAST 

481 

35,3342 

27371 1 

INTSTALL 






35,3343 

43175 0 

vLOiD Clear 


REF 

2 

LAST 

499 

35,3344 

02255 1 

basethp 


REF 

5 

LAST 

'481 

35,3345 

00263 0 

MOCWFLAO 


REF 

6 

LAST 

482 

35,3346 

255 35 0 

SKVL RCv 


REF 

2 

LAST 

499 

35 , 3347 

02263 1 

BASElHV 


REF 

6 

LAST 

482 

35,3350 

15543 1 

STODL VCv 


REP 

2 

LAST 

499 

35,3351 

02272 1 

BASETIi* 






35,3352 

43014 0 

BOF SET 

get appropriate MOCNFIAO SETTING 

REP 

4 ' 

LAST 

260 

35,3353 

04343 1 

MOQ7THIS 






35,3354 

73356 0 

♦2 


REP 

6 

LAST 

499 

35,3355 

00063 1 

MOCNFTAG 






35,3356 

77614 1 

SET 


REP 

4 

LAST 

482 

35,3357 

01473 0 

INTYPFIG 

CCNIC EXTHAP. 

REP 

6 

LAST 

482 

35,3360 

35517 1 

STCAIJ, TET 


REP 

3 

LAST 

482 

35,3361 

27066 1 

INTEGBVS 

INTEGRATION AT lAST . 
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3133 

3134 

3135 

3136 
313T 

3138 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 
314T 

3148 

3149 

3150 

3151 

3152 

3153 

3154 

3155 

3156 
315T- 

3158 

3159 

3160 

3161 

3162 

3163 

3164 

3165 

3166 
316T 

3168 

3169 
31T0 
31T1 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 


R31 




REF 

10 

LAST 

496 

REF 

8 

LAST 

497 

REF 

T 

LAST 

497 

REF 

4 

LAST 

497 

REF 

9 

LAST 

499 

REP 

5 

LAST 

499 

REP 

5 

LAST 

499 

REF 

14 

LAST 

499 

REF 

2 

LAST 

499 

REF 

7 

LAST 

499 

REF 

7 

LAST 

499 

REP 

2 

LAST 

499 

REF 

7 

LAST 

499 

REF 

3 

LAST 

499 

REF 

5 

LAST 

499 

REF 

8 

LAST 

500 

REP 

7 

LAST 

499 

REP 

4 

LAST 

499 

REF- 

2 

LAST 

499 


REP 

5 

LAST 

284 

REF 

9 

LAST 

500 

REP 

5 

LAST 

264 

REF 

5 

LAST 

500 

REP 

4 

LAST 

284 

REP 

10 

LAST 

500 

REP 

6 

LAST 

500 

REF 

1 




BEF 

3 LAST 500 

REF 

1 

REP 

1 


REF 

6 

LAST 

277 

REF 

2 

LAST 

259 

REP 

7 

lAST 

277 

REF 

3 

LAST 

500 


35,3382 

77775 1 


VLOAD 


35,3363 

00001 0 



RATT 

35,3384 

26327 0 


STOVL 

RCNE 

35,3365 

00007 0 



vatt 

35,3366 

36335 1 


SlCALL VCNE 

35,3387 

27371 1 



INTSTALL 

35,3370 

7121A 0 


set 

DLOAD 

35,3371 

01A73 0 



INTYPFLG 

35,3372 

00015 0 



»T 

35,3373 

00041 1 

OIHINT 

STORE 

TDECi 

35,3374 

43175 0 


VLOAD 

CLEAR 

35,3375 

02225 0 



BASEOTP 

35,3376 

00263 0 



MOCNPLAO 

35,3377 

255 35 0 


STOVL 

HCV 

35,3400 

02241 1 



BASEOTV 

35,3401 

15543 1 


STOOL 

vcv 

35,3402 

02272 1 



BASETIMB 

35,3403 

43014 0 


BOP 

SET 

35,3404 

04343 1 



MOCN1H1S 

35,3405 

73407 0 



+2 

35,3406 

00063 1 



MOCWIAO 

35,3407 

35517 1 


STCALL TET 

35,3410 

27066 1 



INTEORVS 

35,3411 

77650 1 


GOTO 


35,3412 

00112 0 



STATEXIT 

35,3413 

77775 1 

GBTEIVN 

VLOAD 


35,3414 

01171 1 



RN 

35,3415 

26327 0 


STOVL 

RCNE 

35,3416 

01177 1 



VN 

35,3417 

16 335 0 


STOOL 

VCNE 

35,3420 

01205 1 



PIPTIME 

35,3421 

77624 1 


CALL, 


35,3422 

27371 1 



INTSTAIi, 

35,3423 

52014 0 


CLEAR 

GOTO 

35,3424 

01673 1 



INIYPPIXJ 

35,3425 

73373 1 



OIHINT 

35,3426 

52020 1 

REDOEXTP 

STO 

GOTO. 

35,3427 

00112 0 



SIATEXIT 

35,3430 

73335 0 



HAVEBASE 

31,2000 



SBILOC 

R34 

31,2000 



bank 


31,2000 

77776 1 

R34LOS 

EXIT 


31,2001 

3 0036 1 


CA 

CDUS 

31,2002 

50 120 1 


INDEX 

FIXLOC 

31,2003 

54 oil 0 


T3 

9D 

31,2004 

3 0035 1 


CA 

CDUT 

31,2005 

50 120 1 


INDEX 

FIXLOC 

31,2006 

54 013 1 


TS 

llD 


USBRaS PAGE NO. 5 Bo S3 


GET set for CCNIC EXTRAP . , OlHER. 


THIS VFMICIES POS.,VEL. IN PUSHLIST. 


prec extrap for other 
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L 

R31 









3181 

REP 

4 

LAST 

500 

31.200? 

3 0120 

1 

CA 

PIXLOC 

3182 

HEP 

1? 

LAST 

444 

31.2010 

6 8211 

0 

AO 

SIX 

3183 





31.2011 

4 0000 

0 

CtH 


3184 

HEP 

5 

LAST 

501 

31.2012 

50 120 

1 

DBOBX 

PIXLOC 

3185 

HEP 

6 

LAST 

490 

31.2013 

54 046 

1 

TS 

XI 

3186 

REP- 

53 

LAST 

490 

31,2014 

0 6006 

1 

IC 

WTPSET 

318? 





31.2015 

??624 

1 

CALL 


3188 

HEP 

2 

LAST 

447 

31.2016 

46000 

0 


SfWB 

3189 





31,201? 

34015 

1 

SlCALL 

12D 

3190 

REP 

1 



31.2020 

?3232 

0 


R34ANa 
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USEHoS PA® NO. 1 Bo S3 




1) PROGRAM NAM3 - WKST rSLlA y PROORAM (PT8) 

2) - UP® HEQUBSTS to IKS ASTONAur 

^ I®LW V TO B3 APPLIEO TO US OIKEB VEHICLE STATE VECTOR AND (2) THE 
ISHI® IKE OTHER vailClB VELOCITY CAS CHANOaJ BY EXECuTI® OP A TKELTSTINO MANEUVER THE 
Omra V®ICLE STATE VECTOR IS INTEGHATHJ TO TIO Af® UHIATS) BY THE AOTITI® ® DELTA V (DELTA V HAVING 

3) ERASABLE INITIALIzATI® REQUIRED - NCNE. 

4) CASING SSa®(CES AND EXIT MODES - CALLED BY ASTRCNAop REQUEST THRU DSCY V 37 E Tg E 

EXITS BT TCP EMX3PJ0B. 

5) (XjnVT - OTHER VQIICLE STATE VECTOR INTEGRATED TO TIG AND INCR04ENTED BY ISLTA V IN BEE COSYS 

OBTAINS THE MATRIX BY «HI® THE WFOT DELTA V MUST BB POST-MULTIPLIED TO 6cNVERT PR® LV 

6) D®RIS - OTHER VEHICLE STATE VECTOR 

7. («i^-prec,.atopc® (« atopic, .intsta^.intwake, phaschng 


8) FLAG USE - MOCNPLAG.CXOCNFLAG, INTYPFLG.HASFLAG, AND MA»(CIH. 


HEP 1 


30.2000 

13.2000 
13,2038 


bank 30 
SETLOC PT6LOC 

bank 


REF 1 


COUNT*: SS/P78 


REP 20 LAST 469 E7,1412 


ebankx tig 


HEP 17 LAST 474 
REP 2 CAST 253 


13.2036 0 5435 0 P76 

13.2037 00031 0 


TC UPFIAG 
ADRES •nUCKFIjG 


REP 1 

REF 97 LAST 496 
REF 14 LAST 476 
REF 1 


REF 2 LAST 502 
REF 98 LAST 502 
REF 15 LAST 502 
ref 2 LAST 502 


REF 54 LAST 501 


REF 21 LAST 502 
REF IS LAST 500 
REP 4 LAST 499 


REF 11 LAST 500 


13.2040 

13.2041 

13.2042 

13.2043 

13.2044 

13.2045 

13.2046 

13.2047 

13.2050 

13.2051 

13.2052 

13.2053 . 

13.2054 

13.2055 

13.2056 

13.2057 

13.2060 

13.2061 

13.2062 


3 2183 1 

0 4555 0 
20624 0 

1 2155 0 
0 2046 1 
0 2040 1 
3 2164 0 

0 4555 0 
20624 0 

1 2155 0 
0 2054 1. 

0 2046 1 
0 6006 1 

77745 1 
03413 1 
34041 0 
27038 1 

5 35 7 5 0 CCMPMAT 


V06H84 

BANKCALU 

tJQPlASI 

e®P7B 

♦2 

-5 

V06N84 ♦! 
BANKCALL 
(XFIASH 
ENDP76 
♦2 
-5 

INTPRET 


PLASH lAST DELTA V, 

and wait for keyboard ACTI®. 




PROCEED 

STORE data and REPEAT FIASHING 

FLA® VERB 06 Naw 33, DISPLAY LAST TIG, 

AND WAIT FOR keyboard ACYTI®. 


00001 0 


TIO 

TOECi 

OlHPREC 

®IT 

RATT 


return to interpretive ccdr 
set D(MPAC)=TIG in CSEC B28 


SET TDECirTIG FOR ORBITAL INTEGRATI® 
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V 

P78 
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5058 





13,2063 

77676 0 

VCQ4P 


U(-R) 

5059 





13,2064 

00031 0 

STORE 

24D 

U(-R) TO 240 

5060 





13,2065 

53435 0 

VXV 

IWIT 

U(-R)XV = U(VXR) 

5061 

REP 

8 

LAST 

500 

13,2066 

00007 0 


VATT 


5062 





13,2067 

00023 0 

STORE 

180 


5063 





13,2070 

53435 0 

VXV 

UNIT 

U(VXR)XU(-R) = OdHXVIXR) 

5064 





13,2071 

00031 0 


240 


5065 





13,2072 

24015 0 

SKVL 

120 


5066 

REP 

4 

LAST 

277 

13,2073 

03540 0 


DELVOV 


506T 





13,2074 

76505 0 

VXM 

VSLl 

VIMPAOrDBLTA V IN REFCOSYS 

5068 





13,2075 

00015 0 




5069 





13,2076 

77655 1 

VAD 



5070 

REP 

g 

LAST 

503 

13,2077 

00007 0 


VATT 


5071 





13,2100 

00007 0 

STORE 

6 

V(PD6)=VATT + r«LTA V 

5072 





13,2101 

77624 1 

tMLL 


PREVENT WOULD-BE USER OF ORBITAL 

5073 

REF 

11 

LAST 

500 

13,2102 

27371 1 


INTSWU, 

INTEO FRCM INTBHPERINO WITH UPDATING 

5074 





13,2103 

77624 1 

CAU, 



5075 

REP 

1 



13,2104 

26165 1 


P76SUB1 


5076 





13,2105 

53775 1 

VLCttD 

VSR4: 


5077 





13,2106 

00007 0 


6 


5078 


» 



13,2107 

57176 0 


0,2 


5079 

REP 

8 

LAST 

500 

13,2110 

25543 1 

STCVL 

vcv 


5080 

REP 

12 

LAST 

502 

13,2111 

00001 0 


RATT 


5081 





13,2112 

77657 0 

VSR4 



5082 





13,2113 

57176 0 


0,2 


5083 

REP 

8 

LAST 

500 

13,2114 

155 35 0 

STODL 

HCV 


5084 

HEP 

22 

lAST 

502 

13,2115 

03413 1 


TIO 


5085 

REP 

8 

lAST 

500 

13,2116 

01517 0 

STORE 

TET 


5086 





13,2117 

71214 0 

CLEAR 

DLOVD 


5087 

REP 

T 

LAST 

500 

13,2120 

01673 1 


INTSfPPLG 


5088 

HEP 

1 



13,2121 

01571 0 


TETIHIS 


5089 

REP 

16 

LAST 

502 

13,2122 

34041 0 

INTOIHIS SlCAIX 

TDESi 


5090 

REP 

5 

LAST 

500 

13,2123 

27066 1 


INTEGRVS 


5091 





13,2124 

77624 1 

CALL 



5093 

REE 

12 

LAST 

503 

13,2125 

27371 1 


INTSTALL 


5094 





13,2126 

77775 1 

VLOID 



5095 

RH' 

4 

LAST 

499 

13,2127 

00017 1 


RATn 


5096 

REP 

2 

LAST 

83 

13,2130 

01503 0 

STORE 

erect 


5097 

REP 

9 

LAST 

503 

13,2131 

15535 0 

STODL 

RCv 


5098 

REF 

6 

LAST 

500 

13,2132 

00015 0 


TAT 


5099 

REF 

9 

LAST 

503 

13,2133 

25517 0 

STOVL 

TET 


5100 

REP 

4 

LAST 

499 

13,2134 

00025 0 


VATTl 


5101 





13,2135 

■77624 1 

CALL 



5102 

REF 

1 



13,2138 

23360 0 


MINIHECT 


5103 





13,2137 

77776 1 

BXIT- 



5104 

HEP 

22 

LAST 

474 

13,2140 

0 5301 0 

TC 

PHASCHNG 


5105 





13,2141 

04024 0 

OCT 

04024 


5106 

REP 

18 

LAST 

502 

13,2142 

0 5435 0 

TC 

UPPIAO 


5107 

REP 

1 



13,2143 

00236 0 

ADRES 

REINTFTC, 
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li P78 


5109 

REP 

55 

last 

502 

13,2144 

0 6006 

1 


IC 

INTPHET 

5110 





13,2145 

77624 

1 


CALL 


5111 

REP 

1 



13,2146 

26711 

1 



ATOPOTH 

5116 





13,2147 

77531 

0 


SSP 

EXIT 

5117 

REP 

9 

LAST 

446 

13,2150 

00053 

1 



a»RBT 

5118 

HEP 

1 



13,2151 

26154 

0 



CUT 

5119 

REP 

99 

LAST 

502 

13,2152 

0 4555 

0 


TC 

bankcall 

5120 

REP 

1 



13,2153 

27426 

1 


CADR 

INTWAkEi 

5121 





13,2154 

77776 

1 

our 

EXIT 


5125 

REP 

107 

LAST 

494 

13,2155 

3 4714_ 

1 

ENDP76 

CAP 

zero 

5126 

REP 

1 



13,2156 

55«126" 

1 


TS 

mahjcctr 

51265 

REP 

4 

LAST 

274 

13,2157 

55«125 

1 


T3 

VHPCSJT 

5127 

REP 

11 

LAST 

297 

13,2160 

3 7716 

0 


CAP 

NEGCNE 

5128 

RET 

6 

LAST 

222 

13,2161 

55«734 

1 


TS 

MR<BuF2 

5129 

US' 

12 

LAST 

476 

13,2162 

1 4106 

0 


TCP 

gotopoch 

5130 





13,2163 

01524 

0 

V06N84 

NV 

0684 

5131 





13,2164 

01441 

1 


NV 

0633 

5132 





13,2165 

43174 

1 

P76SUB1 

AXT,2 

set 

5133 





13,2166 

00002 

0 



2 

5134 

RH' 

9 

LAST 

500 

13,2167 

00063 

1 



MOCNFtAG 

5135 





13,2170 

77014 

1 


BCN 

AXT,2 

5136 

REP 

5 

LAST 

466 

13,2171 

04303 

0 



CMOCNFLG 

5137 

REP 

10 

LAST 

504 

13,2172 

00052 

0 



OPRET 

5138 





13,2173 

00000 

1 



0 

5139 





13,2174 

43414 

1 


Cl EAR 

RVO 

5140 

Rpy 

10 

LAST 

504 

13,2175 

00263 

0 



MOCNFLAO 


USEH»S PAGE NO. 3 E? S3 


PeiWIT USB OP ORBITAL INTEGRATICN 

CLEAR RR TRACicINO MARK CCXKIER 

invalidate marc Buffer 


set ^EANS MOCN is sphere of INFLUENCE. 
set means perm cm state IN LUNAR SPHERE. 
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P5200 

B5201 

R5203 

R5205 

RS208 

RS2095 

B5210 

R5211 


Kao 

SUBRCXn'INH VB2CALL 

MOD NO’ 0 

MOD BY’ na HAIBNSFATHSR 

MOD NO’ 1 MCD BY’ HR HAIRNSPATHER 

MOD NO’ 2 MOD BY ALONSO 

MOD NO’ 3 MOD BY ALONSO 


U®R«S PACE NO. 


Eo S3 


NEW functional DESCRIPTION’ 
USH) THROUCJiafT. 


DATE’ 11 APR 67 
DATE ’ 11 DEC 67 
DATE’ 26 KAR 68 


CALLED BY VERB 82 ENTER. PRIORITY 10 

calculate and display orbital PAHANETBRS 


DATE’ 16 PEB 67 

LOO SECTION’ R30 

SR30.1 CJIANGED TO ALLOW MONITOR OPBRN 

VB82 PROtHlAM REWRITTEN 

PROG MOD TO HANME DIP EARTH/MOON SCALE 



R5212 1. IP AVERAGE O IS CFE’ 

R5213 FLASH DISPLAY V04N06 . B2 INDICATES WHIOH SHIP.S STATE VECTOR IS 

R5214 TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (H2=l>. ASTRONAUT 

R5215 can change TO OIHEH SHIP BY V22EXE, WHERE X NOT EO i . 

B5216 SELECTED STATE VECTOR UPDATED BY THISPHEC COIHPEEC). 

R521T CALLS SR30.1 CWHICH CALLS TEPCCNMU + TEPRP/HA) TO CALCULATE 

B5218 RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE 

R5219 HEIGHT ABO/E LAlftCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE 

R5220 HBKHT AS ABOVE), TPER (TIME TO PERIGEE), TPP (TL''S TO 

RS221 intersect 300 KPT ABO/E PAD OR 35KPT ABOVE LANDING SITE) . 

R5222 PLASI MONITOR VI6N44 (HAPO, HPER, TEF) .TEP IS -59>fe9S IP IT WAS 

R5223 not CCMPUTSIBLE, OTHERWISE IT INCREMENTS ONCE PER SECOND. 

H5224 astronaut HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E. 

H5225 DISPLAY IS IN KMS, IS NEGATIVE (AS WAS TEF) , AND LSCRHMENTS 

RS226 ONt® per second ONLY IP TEP DISPLAY WAS -59Nfe9S. 

R5227 2. IP Average g is on’ 

R5228 CALLS SR30.I APPRCN EVERY TWO SECS. STATE VECTOR IS ALWAYS 

R5229 FOB THIS VBIICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS 

R5230 OP SR30.1 ARE HAPO, RPER, HAPO, HPER, TPER, TEP. 

H5231 PLAai monitor VI 6N44 (HAPO, HPER, TEP). 

R3232 IP MODE IS Pll, THEN CALL DELRSPL SO ASTRONAUT (AN MONITOR 

RS233 RESULTS BY NSOE. SPLASt COMPUTATION DONE ONCE PER TWO SECS. 

BS2331 ADDENDUM’ HAPO AND HPER WOULD BE CHANGED TO BEAD HAPCX AND HPERX IN THE 
R32332 ABOVE BHyiARCS. 


R5234 CALLING SEOUafCB’ VERB 82 ENTER. 

R5235 SlBROUTINES (ALLS)’ SR30.I, (30XDSPP 

R5236 MAYBE - IHISPREC , OIHPHEC, LOADTIME, DELRSPL 

R523T NORMAL EXIT MODES’ TO BTOBXT 


RS238 

ALARMS* 

NONE 



B5239 

ouTPirr* 

HA pox 

(-29) 

M 

R5240 


HPERX 

(-29) 

M 

R5241 


RAPO 

(-29) 

M EARTH 

R52411 



(-27) 

M MOCN 
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■S242 

>52421 

>5243 

>5244 

>5245 


RPBR (-29> M BArih 
(-27) M MOON 

WV (-28) CS CCNWIN3 NEGATIVE QUANTITY 
-TPER (-28) Cs CCNWINS NEGATIVE QUANTITY 
RSP-RREC (-29) M IP DELRSPL CALLED 


>S24S ERASABLE INITIALIZATION fCEQUIRED’ STATE VECTOR. 


DORIS’ QPRET, RCNE, VCKS,TVP/HTMJ, HPEHMIN, RPADTEM, V82EMFLa 
MAYBE’ TSTART82, V82FLAGS, TMCi . 

REF 3 LAST 274 B4,1751 EBANK= HAPCjC 

31,2021 BANK 31 

1 23,2000 ®ILOC H30LOC 

23,2332 ‘ BANK 

1 COUNT* j$/R30 


52S4 

REP 

56 

LAST 

504 

23,2332 

0 6006 

1 

V82CA1L 

TC 

intpret 

5255 





23,2333 

52014 

0 


BCN 

GOTO 

52S6 

REF 

1 



23,2334 

00716 

1 



AVEGPTAO 

525T 

REP 

1 



23,2335 

46566 

0 



V82GCN 

5258 

HEP 

1 



23,2338 

48337 

1 



V82GCEF 

5259 





23,2337 

77776 

1 

V82GaFP 

EXIT 


5200 

REP 

28 

LAST 

444 

23,2340 

3 4711 

1 


CAF 

TVfO 

5261 

REP 

2 

LAST 

266 

23,2341 

55«051 

0 


T3 

OPTICNX 

5282 

REP 

62 

LAST 

450 

23,2342 

3 4712 

1 


CAF 

CNE 

5263 

REF 

3 

LAST 

506 

23,2343 

55«052 

0 


TS 

OPTICNX 

5264 

REP 

1 



23,2344 

3 2406 

1 


CAP 

OPTICNVN 

5265 

REP 

100 

LAST 

504 

23,2345 

0 4555 

0 


TC 

bankcaix. 

5266 

REP 

9 

LAST 

257 

23,2348 

20465 

1 


CADR 

GCKDSPP 

526T 

HEP 

23 

LAST 

498 

23,2347 

0 5423 

1 


TC 

BC«XT 

5268 





23,2350 

0 2352 

1 


TC 

♦2 

5269 





23,2351 

0 2344 

0 


TC 

-5 

A52T0 











5271 

REP 

24 

LAST 

496 

23,2352 

3 4707 

0 


CAP 

B1T4 

5272 

REP 

18 

LAST 

409 

23,2353 

0 5140 

1 


TC 

waitlist 

5273 

REP 

4 

LAST 

275 

E4,1743 




EBANKr 

TFP 

5274 

REP 

1 



23,2354 

02531 

1 


2CADR 

TICKTEST 

5274 

REF 

1 



23,2355 

46064 

1 




5275 





23,2356 

0 0003 

1 


RELINT 


5276 

REF 

1 



23,2357 

3 2410 

0 

VazGOFl.P CAP 

TPFBANK 

5277 

REP 

19 

LAST 

434 

23,2360 

54 003 

0 


TS 

HIANK 

5278 

REF 

108 

LAST 

504 

23,2361 

3 4714 

1 


CAP 

zero 

5279 

REP 

3 

LAST 

89 

23,2362 

55«742 

0 


TS 

V82FLAGS 

A5280 











5281 

REP 

5 

LAST 

261 

23,2363 

3 4756 

1 


CAP 

PHIOl 

5282 

REP 

18 

LAST 

496 

23,2364 

0 5042 

1 


TC 

FINDVAC 


IF AVERAGE 0 CN 
IF AVERAGE G OFF 

ALLOW ASTRCNAUT TO SELECT VEHICIE 
DESIRED FOR ORBITAL PARAMEITERS 


V 04 N 08 


terminate 

PROCEED 

rata in. OPTICNX -H = 1 FOR THIS VEHIC. 

UNEO 1 FOR OIHER VEHICIJ?. 

80 MS 


MAJOR RECYCI.E LOOP ENTRY 


zero FIAOS FOR TICkTEST. INHIBITS 
dexirementing op tef and -TPEH. 


V82GOFF1 WILL EXECUTE STATE VECTOR 


I 






ASSE^BLBoHEVI8ION 249 OP AQC PROORAM COLOSSUS by NASA 2021111-041 20 ’35 OCT. 28,1968 SMOOW .OOT PAGE 507 


L 

R30 










USERctS PAOB HO. 3 B 4 S3 

5283 

RHP 

5 

LAST 

506 

B4,1743 




EBANK= 

1PP 

UPDATE AND ORBIT CALCULATIONS PC® 

5284 

HEP 

1 



23,2365 

02411 

1 


2CADR 

V8200PP1 

SELECTED vailCLE ABCXTT PROPER BODY. 

5284 

HEP 

1 



23,2366 

46064 

1 





5285 





23,2367 

0 0003 

1 


RELINT 



5288 

REP 

14 

LAST 

384 

23,2370 

3 6214 

0 

V82STALL CAP 

UtREE 

STALL IN THIS LOOP AND WITHOLD V 16 N 44 

5287 

REP 

4 

LAST 

'506 

23,2371 

7 1742 

0 


MASK 

V82PLAG3 

UNTIL STATE VECIOR UPDATE SETS ONE OP 

5288 

REP 

139 

LAST 

446 

23,2372 

10 000 

0 


CCS 

A 

OUR FLAG BITS. 

5289 

REP 

1 



23,2373 

0 2400 

1 


TC 

PLAQGCN 

EXIT PRCM STALL LCX®. 

5290 

REP 

4 

LAST 

496 

23,2374 

3 4734 

0 


CAP 

ISEC 


5291 

RHP 

101 

LAST 

506 

23,2375 

0 4555 

0 


TC 

bankCall 


5292 

HEP 

4 

LAST 

496 

23,2376 

01732 

0 


CADR 

DBLAYJOB 


5293 

HEP 

1 



23,2377 

0 2370 

1 


1C 

V82S11ALL 


5294 

REP 

1 



23,2400 

3 2407 

0 

PLAQCKN 

CAP 

V16N44 

MCNITOR HAPO.HPER.IPF. 

5295 

HEP 

102 

LAST 

507 

23,2401 

0 4555 

0 


TC 

BANKCALL 


5296 

REP 

10 

LAST 

506 

23,2402 

20465 

1 


CADR 

GC6<DSPP 


5297 

• REF 

3 

LAST 

496 

23,2403 

0 5514 

1 


TC 

B 5 OFP 

term THIS TELLS TIC5CIEST TO KILL ITSELF 

5298 

REP 

4 

LAST 

507 

23,2404 

0 5514 

1 


1C 

B 5 OPP 

PRCXIEED DITTO 

5299 

RHP 

1 



23,2405 

0 2357 

1 


1 C 

Ve 2 QOFI,P 

RECYCLE RBCCMPUTE STATE VECT + DISPLAY 

5300 





23,2406 

01014 

0 

OPTICNVN VM 

0412 


5301 





23,2407 

04054 

1 

V18N44 

VN 

1644 


5302 

RHP 

6 

LAST 

507 

23,2410 

02343 

1 

TPPaANK 

ECADR 

1PP 


5303 

REP 

57 

LAST 

506 

23,2411 

0 6006 

1 

V82GOFP1 

1 C 

INTPRET 


5304 





23,2412 

77634 

0 


RIB 



5305 

HEP 

T 

LAST 

499 

23,2413 

45505 

0 



lowtime 


5306 

REP 

IT 

lAST 

503 

23,2414 

00041 

1 


STORE 

IDECi 

TIME PC® state vector UPDATE. 

5307 

RHP 

1 



23,2415 

02325 

1 


STORE 

TSTART82 

TIME PC® internal USE. 

5308 





23,2416 

77776 

1 


EXIT 



5309 

RHP 

4 

LAST 

506 

23,2417 

4 1052 

0 


CS 

OPTICNX +1 

1 FOR THIS vehicle, NOT 1 PC® OWBR 

5310 

RHP 

63 

LAST 

506 

23,2420 

6 4712 

1 


AD 

CUE 


5311 





23,2421 

0 0006 

1 


EXTEND 

1 


5312 

HEP 

1 



23,2422 

1 2446 

1 


BZP 

1HISSHIP 


5313 

REP 

58 

LAST 

507 

23,2423 

0 6006 

1 

OlHSHIP 

1 C 

INTPRET 


5314 





23,2424 

776 24 

1 


CALL 


CAII, STATE VECTOR UPDATE FOR OTHER ailP. 

5315 

I«P 

5 

LAST 

502 

23,2425 

27036 

1 



OIHPHEC 


5316 





23,2426 

77775 

1 

BOIHSttP VLCAD 


MCVE RESULTS INTO TPPCCNIC STORAGE AREAS 

5317 

HEP 

13 

LAST 

503 

23,2427 

00001 

0 



RATT 

TO BE CALLED BY SR 30 . 1 . 

5318 

BEK 

10 

LAST 

500 

23,2430 

26327 

0 


STCVL 

ROME 

RATT at (-29>M for EARTH OR MCX3N 

5321 

REP 

10 

LAST 

503 

23,2431 

00007 

0 



VATT 


5322 

REP 

6 

LAST 

500 

23,2432 

02335 

0 


STORE 

VCNE 

VATT AT C-t)M/CS FOR BARTH OR iMOCN 

5323 





23,2433 

77743 

1 


DLOAD* 



5324. 

REP 

1 



23,2434 

71321 

1 



i/rim;b,2 

X2 IS 0 F(» EARTH CENTERED STATE VEC 

5325 

HEP 

1 



23,2435 

00037 

0 


STORE 

1PF/R1MU 

X2 IS 2 FOR MOON 

5326 





23,2436 

77743 

1 


DL(MD+ 


AS LEFT by THISPREC OR OTHPREC. 

5327 

REP 

1 



23,2437 

71315 

0 



MINPEHE,2 


5328 

REP 

2 

LAST 

89 

23,2440 

02321 

0 


STORE 

HPERMIN 

TPFRTMU, HPERMIN AND RPADTTM ARE AC.L 

5329 





23,2441 

46135 

1 


SLOW 

miz 

EARTHA'-IOCN parameters AS SET HERB. 
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5330 

REP 

5 

LAST 

409 

23,2442 

00050 1 


X2 


5331 

REP 

1 



23,2443 

46463 1 


EARIHPAD 


5332 





23,2444 

TT650 1 

0010 



5333 

REP 

1 



23,2445 

4646T 0 


MOCNPAD 


5334 

REP 

59 

last 

SOT 

23,2446 

0 6006 1 THISSHIP IC 

INTPEET 


5335 





23,2447 

T7624 1 

CALL 


CALL SWTB \®CtOB UPDATE FOR THIS SHIP. 

5336 

REP 

4 

LAST 

499 

23,2450 

27022 1 


THISPREC 


5337 





23.2451 

77650 1 

OOTO 



5338 

REP 

1 



23.2452 

46426 0 


Bomaiip 


B5339 

THE POLLCWINO 

ccnstants Abb pAinarisE indexed, do not separate pairs. 


5340 





23,2453 

27533 1 l/RTNUM 

2DEC4 

.45162595 B-4 

ffi 

5340 





23,2454 

07571 0 




5341 





23.2455 

25004 1 1/RMB 

2DEC* 

.50087529 B-s 

Bi74 

5341 





23,2456 

06702 1 




5342 





23,2457 

00001 0 MINPEtW 

2DEC 

10668 B-27 

35 KRT MIN PERIGEE HEIGHT FOR MOCN(-27)H 

5342 





23,2460 

11530 1 




5343 





23,2481 

00002 0 MINPERE 

2C«C 

91440 B-29 

300 KFT f-29)M FOR EARTH 

5343 





23.2462 

31230 1 




5344 





23,2463 

43145 0 EARIHPAD DLOAD 

CIJCO 

PAD 37-8 RADIUS. SCALH) AT <-29)M. 

5345 

REP 

2 

LAST 

489 

23,2464 

05311 1 


RPAO 


53455 

REP 

1 



23,2465 

04622 0 


V82E4PLO 

indicate earth SCALING FOR SR 30.I 

5348 

REP 

1 



23,2466 

46473 0 


BOIHPAD 


5347 





23,2467 

51S7S 1 MOQNPAD 

VLOAD 

ABvAL 

CfKPUTE MOCN PAD RADIUS FRCM HI,S VECTOR. 

5348 

REP 

3 

LAST 

489 

23,2470 

02026 1 


BLS 

SCALED AT f-27)M. 

5349 





23,2471 

77614 1 

SET 



53491 

HEP 

2 

LAST 

508 

23,2472 

04462 0 


vs^mplg 

INDICATE MOCN SCALING FOR SR30 . 1 

5350 

REP 

2 

LAST 

89 

23,2473 

38 323 0 BOIHPAD 

SICAIJ, 

RPAD1E4 


5352 

REP 

1 



23,2474 

46667 1 


saso.i 

CALCULATE ORflITAL PARA.METERS 

53521 





23,2475 

77776 1 

Exit 



53522 

REP 

9 

LAST 

4T6 

23,2476 

3 1011 0 

CA 

MODHEO 

ARB WE IN POO 

53523 





23,2477 

0 0006 1 

EXTEND 



53524 

REP 

1 



23,2500 

1 2645 0 

B23' 

CANDSL 

YES, DO DBLRSPL 

53525 

REP 

60 

LAST 

508 

23,2501 

0 6006 1 SPLRETl 

TC 

INTPRET 


5353 





23,2502 

45 234 0 

RIB 

DSU 


5354 

REP 

8 

LAST 

SOT 

23,2503 

45505 0 


LOADTI,'« 


5356 

REP 

2 

LAST 

SOT 

23,2504 

02325 1 


TSTARTB2 

PRESENT TI!« - TIME V82GOFF1 BEGAN 

5357 

REP 

3 

LAST 

508 

23,2505 

02325 1 

STORE 

TSTARTB2 

SAVE IT 

5358 





23,2508 

53145 1 

DLOAD 

BZE 

SR30.1 SETS -TPBR=o IP HPER L/ 

5359 

REP 

3 

LAST 

26 T 

23,2507 

02346 1 


-TPEB 

HPEPMIN <300 OR 35) KFT. 

5360 

REP 

1 



23,2510 

46521 0 


TIQOEF 

<-TPER = 0) 

5361 





23,2511 

43345 1 TICKTPER DLOAD 

D(AD 

<-TPER NCN ZERO) IFF WAS NOT CCMPinED, 

5362 

REP 

4 

LAST 

508 

23,2512 

<12346 1 


-TPER 

Bin’ WAS set to 59M59S.DCNT TICTC IFF, DO 

5363 

REP 

4 

LAST 

508 

23,2513 

02325 1 


TSWRTB2 

TICK -TPER. DISPLAY BOTH. 

5364 

REP 

5 

LAST 

508 

23,2514 

02346 1 

STORE 

-TPER 

-TPER CORRECnED FOR TIME SINCE V82GOFF1 

5365 





23,2515 

77776 1 

EXIT 


BEGAN. 
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5368 

REP 

36 

LAST 

475 

23,2516 

3 4712 

1 


CAP 

BITI 


536T 

REP 

5 

LAST 

507 

23,rai7 

55«742 

0 


TS 

VB2PLAOS 

INFORMS TltSciEST TO INCHa®NT CNLY -TPER 

5368 

REP 

59 

LAST 

475 

23,2520 

0 5112 

0 


7C 

BTOOPJCB 


5369 





23,2521 

43345 

1 

TICKTPP 

DLCMO 

DAO 

(-TPBR=o) TPP WAS CXWPUIPD.TICK TPP. 

53T0 

REP 

7 

LAST 

507 

23,2522 

02344 

0 



TPP 

DO NOT TICK -TPER.DISPLAY TPP, BUT NOT 

5371 

REP 

5 

LAST 

508 

23,2523 

02325 

1 



TSTART82 

-TPBR. 

5372 

REP 

8 

LAST 

509 

23,2524 

02344 

0 


STORE 

TPP 

TPP C0RREC?IED PC» TIME SINCE V82GOFF1 

5373 





23,2525 

77776 

1 


EXIT 


began. 

5374 

IfiP 

22 

LAST 

450 

23,2526 

3 4711 

1 


CAP 

BIT2 


5375 

REP 

6 

LAST 

509 

23,2527 

55«742 

0 


TS 

V82FLAOS 

INPCSMS TICKTBST TO INCRBVENT CNLY TPP. 

5378 

REP 

60 

LAST 

509 

23,2530 

0 5112 

0 


IC 

BTOCPJCB 


5377 

REP 

27 

LAST 

497 

23,2531 

3 4706 

1 

TICkTBST cap 

bits 

THIS WAITLIST PROmAM PERPETUATES ITSELF 

5378 

REP 

13 

LAST 

498 

23,2532 

7 1044 

1 


»»ac 

EXTVBACT 

CNCE A SEC UNTIL BIT 5 OF BXTVBACT =0. 

5379 

REP 

140 

LAST 

507 

23,2533 

10 000 

0 


CCS 

A 


5380 

HEP 

1 



23,2534 

0 2542 

0 


ic 

DOriCK 


5381. 

REP 

1 



23.2535 

3 7662 

1 


CAP 

PHI025 


5382 

HEP 

15 

LAST 

380 

23,2536 

0 5027 

1 


TC 

NCVAC 

terminate V 82. CANT CALL ENDEXT IN RUPT. 

5383 

HEP 

14 

LAST 

509 

1044 




EaANK= 

EXTVBACT 


5384 

REP 

24 

LAST 

506 

23,2537 

05423 

1 


2CADR 

ENDEXT 


5384 





23,2540 

04062 

1 





5385 

REP 

21 

LAST 

430 

23,2541 

0 5213 

1 


TC 

taskoyer 


5386 

REP 

5 

LAST 

507 

23,2542 

3 4734 

0 

DOTICk 

CAP 

iSC 

RE-HEOUEST TICkTEST. 

5387 

REP 

19 

LAST 

506 

23,2543 

0 5140 

1 


iC 

waitlist 


5388 

REP 

9 

LAST 

509 

E4,1743 




raANK= 

TPP 


5389 

REP 

2 

LAST 

506 

23,2544 

02531 

t 


2CADH 

TICkTEST 


5389 





23,2545 

46064 

1 





5390 

REP 

15 

LAST 

507 

23,2546 

3 6214 

0 


CAP 

THREE 


5391 

REP 

7 

LAST 

509 

23,2547 

7 1742 

0 


MASK 

V82PLAGS 


5392 

HEP 

141 

LAST 

509 

23,2550 

50 000 

1 


INDEX 

A 


5393 





23,2551 

0 2552 

1 


TC 

+1 


5394 

REF 

22 

LAST 

509 

23,2552 

0 5213 

1 


TC 

tasko^r 

IP NO PLACE ITS SET DCNT CHANCE TPP OB 

AS 395 











-TPBR, Bur CCNTINUE LOOP. 

5396 

REP 

1 



23,2553 

0, 2561 

1 


TC 

TPBRTKV 

CNLY BIT 1 SET. INCR -TPBR BY 1 SEC. 

5397 

REP 

6 

LAST 

509 

23,2554 

3 4734 

0 

TPETICK 

CAP 

ISEC 

CM,Y bit 2 SET. INCH TPP BY 1 SEC. 

5398 

REP 

58 

LAST 

495 

23,2555 

54 001 

1 


TS 

L 


5399 

REP 

109 

LAST 

506 

23,2556 

3 4714 

1 


CAP 

zero 


5400 

REP 

10 

LAST 

509 

23,2557 

21«744 

0 


DAS 

TPP 


5401 

REP 

23 

LAST 

509 

23,2560 

0 5213 

1 


TC 

TASKCVER 


5402 

REF 

7 

LAST 

509 

23,2561 

3 4734 

0 

TPBRTIQc cap 

ISEC 


5403' 

REF 

59 

LAST 

509 

23,2562 

54 001 

1 


TS 

L 


5404 

REP 

110 

LAST 

509 

23,2563 

3 4714 

1 


CAF 

ZERO 


5405 

■ REF 

6 

LAST 

508 

23,2564 

21«T46 

1 


DAS 

-TPBR 


5406 

REP 

24 

LAST- 

509 

23,2565 

0 5213 

i 


ic 

TAacCVER 
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540T 





23,2566 

77778 1 

V82GON 

Exit 


A54O8 










5409 

BBP 

8 

last 

506 

23,2587 

3 4756 1 


CAF 

PRIOr 

5410 

BBP 

19 

last 

506 

23,2570 

0 5042 1 


TC 

FINDVAC 

5411 

lEF 

11 

lAST 

509 

E4,1743 



ebank 

= IFF 

5412 


1 



23,2571 

02004 1 


2CADH 

V820CN1 

5412 

REP 

1 



23,2572 

46064 1 




5413 





23,2573 

0 0003 1 


rblint 

5414 

REP 

3 

LAST 

421 

23,2574 

10 067 1 


CCS 

NEWJOB 

5415 

A541S 

Rap 

2 

LAST 

421 

23,2575 

0 5057 0 


TC 

CHANGi 

A54161 










541T 

REP 

2 

LAST 

507 

23,2576 

3 2407 0 

V62RH1SP CAF 

VI6N44 

5418 

REP 

103 

LAST 

507 

23,2577 

0 4555 0 


TC 

BAWgCAU, 

5419 

RBP 

11 

LAST 

507 

23,2600 

20465 1 


CADR 

GOKDSPF 

5420 

REP 

5 

LAST 

507 

23,2601 

0 5514 1 


TC 

B5OFF 

5421 

REP 

8 

LAST 

510 

23,2602 

0 5514 1 


TC 

BsCPF 

5422 

REP 

1 



23,2603 

0 2576 1 


TC 

V02HEDSP 

5423 

A5424 

HEP 

61 

LAST 

508 

23,2604 

0 6006 1 

V02GCN1 

TC 

INTPRET 

5425 





23,2605 

52175 0 


VLCttD 

GOTO 

5426 

REP 

6 

LAST 

500 

23,2606 

01171 1 




5427 

REP 

1 



23,2607 

48810 1 



NEXTLINE 

5428 

REP 

11 

LAST 

507 

23,2610 

26 327 0 

NEXTLINE 

STOVL 

RCNE 

5429 

RSP 

6 

LAST 

500 

23,2611 

01177 1 



VN 

5430 

RQP 

T 

LAST 

507 

23,2612 

02335 0 


STORE 

VCNE 

5431 





23,2613 

52014 0 


BON 

GOTO 

5432 

REP 

6 

LAST 

500 

23,2614 

04303 0 



MOCNTHIS 

5433 

REP 

1 



23,2615 

46617 0 



MOCNGCN 

5434 

REP 

1 



23,2616 

46630 0 



earthgcn 

5435 





23,2817 

71214 0 

MOCNGCN 

SET 

DLOID 

5436 

REP 

3 

LAST 

508 

23,2620 

04462 0 



V82EMFLG 

54361 

REF 

1 



23,2621 

06454 1 



1/RTWUM 

5437 


2 

LAST 

507 

23,2622 

14037 0 


STOOL 

tfp/rtmu 

5438 

REP 

1 



23,2623 

06460 0 



MINPERM 

5439 

REP 

3 

LAST 

507 

23,2624 

26321 0 


STOvL 

HPGRMIN 

5441 

REP 

4 

LAST 

508 

23,2625 

02026 1 



Rl,S 

5443 





23,2626 

52046 1 


ABVAL 

GOTO 

5444 

REP 

1 



23,2627 

46637 1 



V82GCN2 

5445 





23,2630 

71214 0 

earthgcn clear 

DLCMD 

5446 

REP 

4 

LAST 

510 

23,2631 

04662 1 



V02EMP1X; 

54461 

REP 

2 

LAST 

507 

23,2632 

06456 0 



l/RTWE 

5447 

REP 

3 

LAST 

510 

23,2633 

14037 0 


STOOL 

tff/rtmu 

5448 

REF 

2 

LAST 

507 

23,26 34 

06462 I 



MINPERE 

5449 

REP 

4 

LAST 

510 

23,2635 

16321 0 


STOOL 

HPERMIN 

5450 

HEP 

3 

LAST 

SOS 

23,2636 

05311 1 



RPAD 

5451 

REP 

3 

LAST 

503 

23,2837 

36323 0 

V62GCN2 

I 

F 

RPADTKM 

5453 

REP 

2 

LAST 

508 

23,2640 

46687 1 



SR30.1 
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Average o cn. use qjhhent state vector 
TOR orbital parakkier calculations, 
less than LAMBERT 

V82aCNl WILL PBRPCEM ORBIT CALCULATIONS 
ABCUT proper body APPRC6C ONCE PER SEC. 


WITHOLD Vie N44 UNTIL FIRST ORBIT CALC 
IS DONE. NOTE’ V82GCN1 (PRIOf, PINDVAC 
JOB) IS COMPLETED BEFORE V82CiON (PRIOr, 
NCVAC JOB). 

MOflTOR HAPO, HPER, TEF 


TERM THIS TELLS V82Gaii TO KILL ITSELF 
PROC DITTO. 

recycle 


THIS EXEC PROGRAM PERPETUATES ITSELF 
ONCE A SEC UNTIL BIT 5 OP EXTVBACt =0. 
HOLDS OFF CCS NEWJOB BETWEEN RN AND 
VN FETCH SO RN , VN ARE PRCM SAME 
STATE vector UPDATE. 

RN At (- 29IM FOR EARTH OR MOCN 


VN AT (-T)M/CS for earth OR MOON 


FlAO indicates BODY ABOUT WHICH ORBITAL 
CALCulATICNS ARE TO BE PERFORMED. 

IF set - MOON , IF reset - EARTH. 


INDICATE MOCN SCALING FOR SR30.I 
LUNAR PARAMETERS LOADED HERE FOR SR30.I 


SCAIED AT I-2T)M. 


indicate earth scaling for SR30.1 
earth parameters loaded herb for SH30.1 


CCMMCN CODE FOR EARTH d MOON. 
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L 

R30 





5454 





23,2641 

5455 

REP 

9 

LAST 

417 

23,2642 

5456 





23,2643 

5457 

REP 

1 



23,2644 

5458 

REP 

62 

LAST 

510 

23,2645 

54581 





23,2646 

54582 

REP 

13 

LAST 

503 

23,2647 

5459 





23,2650 

5460 

REP 

12 

LAST 

510 

23,2651 

5461 

REP 

1 



23,2652 

5482 





23,2653 

54621 

REP 

10 

LAST 

508 

23,2654 

54622 





23,2655 

54623 

REP 

1 



23,2656 

5463 

REP 

28 

LAST 

509 

23,2657 

5464 

REP 

15 

LAST 

509 

23,2660 

5465 ' 





23,2661 

5466 

REP 

25 

LAST 

509 

23,2662 

5468 

REP 

8 

LAST 

509 

23,2663 

5469 

REP 

104 

LAST 

510 

23,2664 

5470 

REP 

5 

LAST 

507 

23,2665 

5471 

REP 

2 

LAST 

510 

23,2666 


TT776 

1 


EXIT 


0 5253 

0 


IC 

CHECKM4 

00013 

0 


DEC 

11 

0 2657 

1 


tc 

V82GCN3 

0 6006 

1 

candel 

ic 

INTPRET 

77624 

1 


CALL 


27371 

1 



INT3TALL 

45145 

0 


DLQAO 

CALL 

02344 

0 



TEP 

64017 

0 



DELHSPL 

77776 

1 

SPLRBT 

EXIT 


3 1011 

0 


CA 

mgdreg 

0 0006 

1 


bxtbto 


1 2501 

0 


BzP 

SPLBETl 

3 4706 

1 

V82GCN3 

CAP 

bits 

7 1044 

1 


MASK 

Extvhact 

0 0006 

1 


EXTEND 


1 5423 

0 


BzP 

ENDEXT 

3 4734 

0 


CAP 

ISEC 

0 4555 

0 


TC 

BANKCALL 

01732 

0 


CADR 

DELAYJOB 

0 2604 

1 


TC 

VB2GCN1 


USBIUS PAGB NO. 7 B4 S3 

NOT IN MODE 11. 

IN MCDB 11 OR 00 

D0LRSPL IXES INTWAkE 

RETUm IS TO NEXT LINE ( SPLHET ) . 


SEE IP ASTRCNAUT HAS SIGNALLPD TEaMINATE 

YES, TBIWINATE V0 82 LOCff 

wait cne seccnd before repeating 
orbital parameter ccmputation. 
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subroutine name* 


MOD NO’ 
MOD BY’ 
MOD NO* 
MOD NO’ 
MOD NO’ 
MOD NO’ 
MOD NO’ 


RR aaiflNSPATHER 

1 MOD BY> HR BAIHNSPATHEH 

2 MCD BY» RR BAIRNSPAIHER 

3 MCD BY ALCNSO 

4 MCD BY ALONSO 

5 MOD BY’ RR BAIHNSPATHER 


DATE’ 11 APR 67 
rWTE’ 14 APR 67 
date* 11 r®c 67 
DATE’ 26 M4H 68 
DATE’ 6 AUO 68 


DATE’ 16 FEB 67 

U» SECTICN’ B32 

SR30.1 OIANGED TO ALLCW MONITOR OPERN 

ADD OVFL Ck for RAPO 

subroutine REvmiTIEN 

PROO mod to handle DIF EARTH/MOON SCALE 

(VFl. C)K FOR HAPO d HPER. VOIDS MOD /2. 


NEW FIPJCtICNAL DESCrIPTICW’ orbital PARANETERS display for NOLNS 32 and 44. 
SR30.1 CALLS TEFCaiMJ AND TEFHP/RA TO CALAjLATE RPER (PERIGEE RADIUS) 

RAPO (APOGEE RADIUS), HPER (PERIGEE HEIGHT AflO/E LAUNCH PAD (» LUNAR ’ 

IA®ING SITE), HAPO (APCX5SB HEIGHT AS ABOyE) , TPER (TI>® TO PERIGEE) 

TEP (tike to intersect 300 KPT ABCVE PAD Ca 35KFT ABOVE LANDING SITE) 

IF HPER IS greater THAN OR EQUAL TO HPERMIN, CALCLAATES TPER AND STORES 
negative in -TPBR. OlKEKYISS STCHES +0 IN -TPER. WHENEVER TPER IS 
CALCUATH), IFF Is NOT COMPUWBLB AND DEFAULTS TO -59MIN S9SEC IP HAPO 
WCXAD EIXCEH) 9999.9 NM, IT IS LIMITED TO THAT VALUE FOR DISPLAY 


ADOaOXjM’ HAPO AND HPER SKXJLD BE CHANGH) TO READ HAPCN AND HPERjg IN THE 
ABOVE remarks. 


calling SEQUENCE’ 


subroutines CALLED’ 
NORMAL EXIT MODE’ 
ALARMS’ 

OUTPUT’ RAPO (-2 


(-29) M earth 
(-27) M MOCK 
(-29) M earth 
(- 27) M MOCN 
(-29) M 
(-29) M 
(-28) CS 
(-28) Cs 


erasable initialization REQUIRED- 


CALL 

SR30.I 

TFPCCNMU, TFPHP/RA, CALCTPBR, CALGlEP 
CALLING LINE .-i (STILL IN INTERPRETIVE MCDE) 

N(HE 

RTH APOGEE RADIUS EARTH CENTERED COORD. 

ICN MOCN CENTERED COORD. 

RIH PERKSE RADIUS EARTH CENTERH) COORD. 

CN MOCK centered COORD. 

APOffiE ALTITUDE ABOVE PAD OR LAND. SITE MAX VALUE LIMITED TO 9999.9 NM. 
PERKEE alt. ABCVE PAD OB LAND. SITE MAX VAIUB LIMITED TO 9999 9 NW 
TI® TO SOOKPT OR 35KFT ALTITLDE 
TIME TO PERIGEE 


PERKEE RADIUS 




TFF/RTHJ (+17) EARTH 
(+14) MOCN 
RCNE (-29) M 

VCNE <-T) M/CS 


RECIPROCAL OP PRCVBR GRAV CCNSTANT FOR 
EAKIH or MOCN = 1/SQRTCMU) . 

SIATE vBCTrOR 
state vector 


RPADTE4 (-29) M BARTH RADIUS OF LAUNCH PAD OR LUNAR LANDING 


<-2T) M MOCN 
HPERMIN C-29) M EARTH 
C-27) M MCXN 


SITE. 

(300 OR 35)Kn' MINIMUM PERIGEE Al.TITUDE 
ABCVE LAUNCH PAD OR (ljNAR [ANDING SITE. 


V 82 EMFLG ( INT S# BIT) RESET FOR EARTH, SET FOR MOCN. 


R5599 DHIRIS’ OPHErr, PCX,, S2 
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5600 

HEP 

1 





O0UNT4 tS/SR30S 


5601 





33,2667 

44001 0 

SH30.1 SETPD 

STO 

initialize pusidown list. 

5602 





23,2670 

00001 0 


0 


5603 

HEP 

4 

LAST 

442 

23,2671 

00051 0 


. S2 


A5604 









8R30,.1 INPUT’ RCNE AT (-29>M EARTH/MOCN 

A5605 









VCNE AT (-T)M/CS 

A5606 









wfccnmj.tpfrp/ha.calctpbr and CALCTPP 

A560T 









CALLS REQUIRE ’ 

AS60S 









BAR3H CENTERED (NO RESCALINO REQUIRED) 

A5e09 









RCNE SCALED TO B-gg M 

A5610 









VCNE SCALH) TO B-7 M/CS 

A5611 









HOQI CHTTERED (RESCALING REQUIRED) 

A5612 









RCNE SCALH) TO B-zi M 

A5613 









VCNE SCALED TO B-s M/CS 

5614 





23,2672 

77214 0 

BOFF 

VLOAD 


5615 

REP 

S 

LAST 

510 

23,2673 

04742 1 


V82E4PLa 

OPP FOR EARTH , CN FOR MOCN. 

5616 

REP 

1 



23,2674 

46703 1 


WPCALLS 


56 IT 

REP 

12 

LAST 

510 

23,2675 

02327 0 


RCNB 


5618 





23,2676 

77752 1 

va ,2 



5619 

REP 

13 

LAST 

513 

23,2677 

26327 0 

STOVL 

RCNE 


5620 

REF 

8 

LAST 

510 

23,2700 

02335 0 


VOJE 


5621 





23,2701 

77752 1 

VSL2 



5622 

REP 

9 

LAST 

513 

23,2702 

02335 0 

STORE 

VtHB 


5623 





23,2703 

77624 1 

■mPCALLS CALL 



5624 

REP 

1 



23,2704 

56751 1 


WPCCNMU 


5625 





23,2705 

77624 1 

CAU, 


TPFRP/HA CCMPUTES BAP0,BPER. 

5626 

HEP 

1 



23,2706 

57017 0 


WFRP/RA 


AS627 






' 



RETUINS with RAPO in D(MPAC) . 

5628 





23,2707 

77625 0 

DSU 



5629 

REP 

4 

LAST 

510 

23,2710 

02323 1 


HPADT»1 


5630 





23,2711 

64414 1 

BOFP 

SR2H 

NEED HAPO AT (-29)M FOR DISPIAY. 

A5631 









IP MOCN CENTERED, RESCALE PROM (-27)M. 

AS632 









IP earth centered AIJIEADY AT (-29)M. 

5633 

REP 

6 

LAST 

513 

23,2712 

04742 1 


V82ENPLO 

OPP FOR EARTH , CN FOR MOCN. 

5634 





23,2713 

46714 1 


+1 


5635 





23,2714 

77624 1 

CALL 


IP HAPO S MAXNM, SET HAPO =9999.9 NM. 

5636 

REP 

1 



23,2715 

46754 0 


MAxCrtc 

OIHERwISE STORE (RAPO-RPADIKI) IN HAPO. 

56 3T 

REF 

4 

LAST 

506 

23,2716 

16352 1 

STORHAPO STCDL 

HAPOC 


5638 

REP 

1 



23,2717 

00017 1 


HPER 


5639 





23,2720 

77625 0 

DSU 



5640 

REP 

5 

LAST 

513 

23,2721 

02323 1 


RPADTSM 

GIVES HPER AT (-29)M EARTH, (-2T)M MOCN. 

5641 

REP 

238 

LAST 

494 

23,2722 

00161 1 

STORE 

MPAC +4 

SAVE THIS FOR CCMPARISCN TO HPERMIN. 

5642 





23,2723 

64414 1 

BORP 

SR2R 

NEED HPER AT (-29)M FOR DISPLAY. 

A5643 









IP MOCN CENTERED. RESCALE FRCM (-27)M. 

A5644 









IF earth centered AIREADY AT (-29)M. 

5645 

REP 

T 

LAST 

S13 

23,2724 

04742 1 


V82E4F713 

OFF FOR earth, CN FOR MOCN. 

5646 





23,2725 

46726 0 


♦1 


5647 





23,2726 

77624 1 

CAU, 


IF HPER ff MAXNM, SET HPER = 9999.9 NiM. 

5648 

REP 

2 

LAST 

513 

23,2727 

48754 0 


MAxCHK 
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5649 

HEP 

4 

LAST 

275 

23,2730 

16354 

1 

STOaHPER STODL 

HPEHN 

STORE (RPER - HPADTEi) INTO HPERX. 

5650 

HEP 

239 

LAST 

513 

23,2731 

00161 

1 



MPAC *4 


5651 





23,2732 

51025 

1 


DSU 

BPL 

HPBKMIN AT <-29)M POR EARTH, (-27)M M(XH 

5652 

HEP 

5 

LAST 

510 

23,2733 

02321 

0 



HPEEMIM 

IP HPBR L/ HPEKMIN {3OO OR 35)KPr, 

5653 

REP 

1 



23,2734 

46740 

0 



DOTPER 

THEN zero INTO -TPER. 

5654 





23,2735 

52145 

0 


DLOAO 

GOTO 

OmBBsnsE CALCULATE TPER. 

5655 

REP 

1 



23,2738 

15332 

1 



HleZEHOS 


5656 

REP 

1 



23,2737 

46744 

1 



SKIPTPBR 


5657 





23,2740 

45145 

0 

DOTPER 

DUMD 

CALL 


5658 

REP 

2 

LAST 

513 

23,2741 

00017 

1 



RPER 


5659 

REP 

1 



23,2742 

57055 

0 



calctpeh 


5660 





23,2743 

77876 

0 


DCOMP 


TPER IS POT NEO INTO -TPER. 

5661 

REP 

7 

LAST 

509 

23,2744 

16346 

1 

SKIPTPBR 

STODL 

-TPEH 


5662 

REP 

6 

last 

514 

23,2745 

02321 

0 



HPEIWIN 

HPBHMIN AT (-29)M POR EARTH, (-27)M MOON 

5663 





23,2746 

45015 

1 


DAO 

CALL 


5664 

REP 

6 

■ LAST 

513 

23,2747 

02323 

1 



rpadtpm 

HPADTB< AT (-29)M PCR EARTH, (-27>M MOCN 

5665 

REP 

1 



23,2750 

57060 

0 



CALCtPP 

DIVES S9MS9S FOR TPP IP RPER G/ 

5666 





23,2751 

77676 

0 


DCCMP 


HPEHMIN + RPADTEM. (TPER WAS NCN ZERO) 

5637 

REP 

13 

LAST 

511 

23,2752 

36344 

1 


SlCAlL TPP 

OnffilMISE CCMPUTES TPP. ((XJTO) 

5668 

REP 

5 

LAST 

513 

23,2753 

00051 

0 



S2 


5669 





23,2754 

51025 

1 


DSU 

BPL 

IP C(MPAC) 5 9999.9 NM, MPAC = 9999.9 NM 

5670 

HEP 

1 



23,2755 

06764 

1 



MAxNM 


5671 





23,2756 

46761 

0 



♦3 

OIHEIWISE C(MPAC) = B(MPAC) . 

5672 





23,2757 

43415 

0 


DAD 

RVO 


56r3 

REP 

2 

LAST 

514 

23,2760 

06764 

1 



MAXNM 


5674 





23,2761 

43545 

1 

♦3 

DU»D 

Ryo 

(USED By P30 - P37 ALSO) 

5675 

HEP 

3 

LAST 

514 

23,2762 

06764 

1 



MAXNM 


5676 





23,2763 

01065 

0 

MAyNM 

2OCT 

01065 05603 


5676 





23,2764 

05603 

1 
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t, 

ROOOl 

R0002 

R0003 

R0004 

R0005 

R0006 

ROOOT 

R0008 

Rooog 

ROOlO 

ROOll 

R0012 

R0013 

R0014 

R0015 

R0016 

R0017 

Roots 

R0019 

ROOSO 

R0021 

ROO22 

R0023 

R0024 

R002S 

R0026 

R0027 

R0028 

R0029 

R0030 

R0031 

R0032 

R0033 

R0034 

R0035 

R0038 

R0037 



STABLE ORBIT - P3B-P39 USEIbS PACE NO. 1 Eo S3 

STABLE orbit RENIEzVOOS PROGRAMS (P38 AND P78) 

MOD NO -1 LOO section - STABLE ORBIT - P38-P39 

MOD BY RUDNICicI.S DATE 25 JAN 68 

functional description 

P 38 AND P78 CALCULATE THE REOUIRED DELTA V AND OTHER INITIAL 
CONDITIONS REQUIRED BY THE AGO TO ( 1 ) PLTT THE ACTIVE VEHICLE 

CN A transfer trajectory that intercepts the PASSIVE vehicle 

ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OP OR BEHIND THE 
PASSIVE VEHICLE AND ( 3 ) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE 
PASSIVE VEHICa.E ORBIT WITH A DELTA R SEPABATICN BETWEEN THE TWO 
VEHICLES 

CALLING sequence 

ASTRONAUT REQUEST THRU DSKY 

V 37 E 38 B IP THIS VEHICLE IS ACTIVE VEHICLE 
V 37 E 7 BE IP other VEHICLE IS ACTIVE VEHICLE 


input 


( 1 ) SOI fWNEUvER 


<A) TIO time op SOI MANEUVER 

(B) CENTANO ORBITAL CENTRAL ANGLE OP THE PASSIVE VEHICLE 
tXmlNO TRANSFER FRCM TIG TO TIME OP INTERCEPT 
<0 OELTAR THE DESIRED SEPARATION OP THE TWO VEHICLES 

SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE 
. ORBIT 

(D) OPTION EQUALS 1 FOR SOI 

<2) SQR EWNEUVER 



(A) TIG TIME OF SOR MANEUVER 

(B) CBITANO AN OPTIONAL RESPECIPICATICN OF 1 (B) ABOVE 

(C) OPTION EQUALS 2 FOR SOR 

(D) DBLTTIME the time required TO traverse delta R WHEN 

TRAVELING AT A VEIDCITY EQUAL TO THE HORIZONTAL 
velocity OP the passive vehicle - SAVED FRCM 

SOI phase 

IEI tint TIME OF INTERCEPT (SOI) - SAVED FRCM SOI PHASE 


OUTPUT 


(1) TROKCNT Nl!6ff!ER OP MARKS 


(2) 

( 3 ) 


TTOOO 

♦M3A 


TIME TO GO 
MIDDLE GI.MBAL ANQi? 
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(4) Dsne^i Tite op iniercept op passive vhiiclb orbit 

(FOR SOI ONLY) 

(5) POSTTPI PERIGEE ALTITUDE OP ACTIVE VHIICLB ORBIT APIEH 

THE SOI (SOB) maneuver 

<6) DBLVTPI magnitude OP DELTA V AT SOI (SOR) TIME 

(7) DELVTPP MAGNITICE OP DELTA V AT INTERCEPT TIKE 

(8) DELVLVC DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL 

coordinates 


R0048 SlflBOuriNES USED 


R004T 

B0048 

Ra049 

R0050 

R00502 

R00504 

B00506 

R00508 

ROOSl 

R0052 

BOOS 3 

R0054 


AVPLAQA 

A\(FLA(S> 

VNDSPLY 

BANkCALL 

OOFTASHR 

OOTOPOOi 

blanket 

endcfjob 

prec/tt 

selectnu 

intrpvp 

MAINRTNE 


0055 





04,3103 




bank 

04 


0056 

HEP 

1 



04,2000 




SETLOC 

STELEOttf) 


005T 





04,3103 




bank 



0058 

REF 

13 

LAST 

496 

E4,1TT0 




ebank= 

subexit 


0059 

HEP 

1 







CQJNT* S$/P3879 


0060 

REP 

105 

LAST 

511 

04,3103 

0 4555 

0 

P38 

TC 

bankcall 


0061 

REP 

3 

LAST 

460 

04,3104 

73726 

0 


CADH 

AVPIAGA 

THIS VEHICLE ACTIVE 

0062 





04,3105 

0 3110 

1 


TC 

+3 


0063 

REP 

106 

LAST 

517 

04,3106 

0 4555 

0 

P78 

TC 

bankcall 


0064 

REF 

3 

LAST 

460 

04,3107 

73741 

1 


CADR 

AVFIAGP 

omER vehicle active 

00645 

REP 

107 

LAST 

517 

04,3110 

0 4555 

0 


TC 

bankcail 


00646 

REP 

3 

LAST 

460 

04,3111 

73746 

0 


CADR 

P20FLG(H 

SET UPDAlEtG, TRACkFIC 

0065 

REP 

1 



04,3112 

3 3440 

1 


CAP 

VO 6 N 33 SH 

DISPIAY TIG 

0066 

REP 

1 



04,3113 

0 3427 

0 


TC 

VNDSPLY 


006T 

REP 

1 



04,3114 

3 3441 

0 


CAP 

VO 6 N 55 SR 

DISPIAY CBNTANG 

0068 

REF 

108 

LAST 

517 

04,3115 

0 4555 

0 


ICR 

BANKCALL 


0069 

REF 

2 

LAST 

475 

04,3116 

20763 

1 


CADR 

GOFIASIR 


00694 

REP 

13 

LAST 

504 

04,3117 

1 4106 

0 


TCP 

GOTOPCCH 

TERMINATE 

00696 





04,3120 

1 3125 

0 


TCP 

♦5 

PROCEED 

00698 





04,3121 

1 3114 

1 


TCP 

-5 

recycle 

OOTO 

REF 

16 

LAST 

509 

04,3122 

3 6214 

0 


CAP 

THREE 

IMMEDIATE RETimN - BIANK Rl 

00702 

REP 

2 

I A ST 

475 

04,3123 

0 5415 

1 


ICR 

blanket 


00T04 

REP 

61 

LAST 

509 

04,3124 

1 5112 

1 


TCP 

ENDOPJOR 


0071 

REF 

8 

LAST 

418 

04,3125 

3 4715 

0 


CAP 

FIVE 



I 
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00T2 

HEP 

2 

LAST 

266 

04,3126 

55«131 1 

T3 

OPTIQ41 


0OT3 

REP 

64 

LAST 

507 

04,3127 

3 4712 1 

CAP 

(NE 


00T4 

HEP 

4 

LAST 

450 

04,3130 

55«132 1 

TS 

OPTICN2 

OPTICK CODE IS set TO 1 

00T42 

REP 

1 



04,3131 

3 3442 0 

CAP 

V04N06SR 

DISPLAY OPTICN CODE - 1 = SOI, 2 

00744 

REP 

109 

LAST 

517 

04,3132 

0 4555 0 

ICR 

bankcall 


00746 

REP 

3 

LAST 

517 

04,3133 

20763 1 

CADR 

GQFLAaiR 


00748 

REP 

14 

LAST 

517 

04,3134 

1 4106 0 

TCP 

GOTOPOCH 

TEIWINATE 

0075 





04,3135 

1 3142 1 

TCP 

♦5 

PROCEED 

00752 





04,3136 

1 3131 0 

TCP 

-5 

recycle 

0076 

REP 

16 

LAST 

369 

04,3137 

3 4710 0 

CAP 

bits 

IM«»IATE RETUrol - BLANK R3 

0077 

REP 

3 

LAST 

517 

04,3140 

0 5415 1 

TCr 

blanket 


0078 

REP 

62 

LAST 

517 

04,3141 

1 5112 1 

TCP 

©roOFJOB 


0079 

REP 

63 

LAST 

511 

04,3142 

0 6006 1 

TC 

INTPHET 


0080 





04,3143 

70535 0 

SU»D 

SRl 


0081 

REP 

5 

LAST 

518 

04,3144 

01133 1 


OPT1CN2 


0082 





04,3145 

71230 0 

bhiz 

DLCWD 


0083 

REP 

1 



04,3146 

11154 1 


OPTNl 


0084 

HEP 

1 



04,3147 

03656 1 


TINT 


0085 

HEP 

1 



04,3150 

02611 0 

STORE 

TINTSOI 

STORE FOR SOR PHASE 

0086 





04,3151 

77614 1 

CLHGO 



0087 

IffiP 

1 



04,3152 

01230 1 


OPTNa* 

OPTNSW 





SJ3 ' 


0088 

REP 

1 



0A,3153 

11203 0 



AJNClNl 


0089 





04.3154 

43014 0 

OPlNl 

SET 

CIEAr 

SOI 

00895 

REP 

2 

LAST 

518 

04.3155 

01070 1 



OPTNSW 


0090 

HEP 

4 

LAST 

474 

04.3156 

00670 0 



UPOAIPLO 


00905 





04.315T 

77624 1 


CALL 



0091 

REP 

1 



04.3160 

11362 0 



PHEC/TT 


00915 





04,3161 

43214 1 


SET 

DAD 


0092 

REP 

5 

LAST 

518 

04,3162 

00470 1 



UPOA1P113 


0093 

REP 

23 

LAST 

503 

04,3163 

03413 1 



TIG 


0094 

REF 

2 

LAST 

518 

04,3164 

03656 1 


STORE 

TINT 

TI = TIG + TP 

0095 

REP 

31 

LAST 

451 

04,3165 

01046 1 


STORE 

DSPTFMl 

for display 

0096 





04,3166 

77776 1 


H5CIT 



00962 

REP 

1 



04,316T 

3 3443 1 


CAP 

VO6N57SR 

DISPLAY DEI,W R 

00964 

REP 

110 

LAST 

518 

04,3170 

0 4555 0 


ICR 

eankcall 


00966 

REP 

4 

LAST 

518 

04,3171 

20763 1 


CADH 

COPLASHR 


00968 

REP 

15 

LAST 

518 

04,3172 

1 4106 0 


TCP 

GOTOPOCH 

TEffUNATE 

0097 





04,3173 

1 3200 1 


TCP 

♦5 

PROCEED 

00972 





04,3174 

1 3167 0 


TCP 

-5 

HECYCIE 

0098 

REP 

10 

LAST 

501 

04,3175 

3 6211 0 


CAP 

SIX 

INWroiATE RETURN - BIANK R2, H3 

0099 

REF 

4 

LAST 

516 

04,3176 

0 5415 1 


iCR 

blanket 


0100 

REP 

63 

LAST 

518 

04,3177 

1 5112 1 


TCP 

BJDOFJCB 


0101 

REP 

1 



04,3200 

3 3444 0 


CAP 

VO6N34SR 

DISPIAY TIME OP INTERCEPT 

0102 

REP 

2 

lAST 

517 

04,3201 

0 3427 0 


TC 

VNDSPLY 


0103 

REF 

64 

LAST 

518 

04,3202 

0 6006 1 


TC 

INTPRET 


0104 





04,3203 

45014 0 

JUNCllli 

CLEAR 

CALL 


0105 

REF 

1 



04,3204 

04266 1 



P39/79aY 


0106 ■ 

REP 

3 

LAST 

460 

04,3205 

10716 0 



selecthj 

seiect hi, ciPAR PiNAipir:, go to 

0107 





04,3206 

77624 1 

RECYCLE 

CALL 


0108 

REP 

2 

LAST 

518 

04,3207 

11382 0 



phec/tt 











ASSEMBLE REVISION 249 OP AGO PHOSAM COLOSSUS BY NASA 2021111-041 
stable ORBIT - P38-P39 


20'35 OCT. 28,1968 ®«X)QI .007 PAGE 519 
USBR«3 PAGE NO. 4 E4 S3 


0109 





04,3210 

T1214 0 


BCFP 

DLCAD 


0110 

IffiP 

3 

LAST 

518 

04,3211 

01350 0 



OPTVSW 


0111 

REP 

1 



04,3212 

11232 1 



OPTN2 


0112 

REP 

3 

LAST 

518 

04,3213 

03656 1 



TINT 


0113 

REP 

18 

LAST 

507 

04,3214 

34041 0 


STCALL TDECi 

PRECISION UPDATE PASSIVE vaiICl.E TO 

0114 

IffiP 

1 



04,3215 

11413 1 



INTOPVP 

INTERCEPT TINE 

0115 





04,3216 

53575 0 


VLOAD 

UNIT 


one 

REP 

14 

LAST 

507 

04,3217 

00001 0 



HATT 

RP/(RP) 

OUT 





04,3220 

47315 0 


PDVL 

VXV 


0118 

REP 

11 

LAST 

507 

04,3221 

00007 0 



VATT 


0119 





04,3222 

60246 1 


ABVAL 

NGW4 

(VP X RP/(RP)) 

0120 

REP 

7 

LAST 

501 

04,3223 

00047 1 



XI 


0121 





04,3224 

56 325 0 


POOL 

DDV 


0122 

REP 

5 

LAST 

275 

04,3225 

02611 0 



DBLTAR 


0123 





04,3226 

TT65T 0 


a* 


delta R / (VP X RP/HP) 

0124 





04,3227 

20172 1 



0 -7,1 


0125 

REP 

1 



04,3230 

36613 0 


STCALL DELTTIMB 

DEIjTA T = (RP) DELTA R / (VP X RP) 

0126 

REF 

1 



04,3231 

11236 0 



JUNCTN2 


0127 





04,3232 

43345 1 

OPTN2 

DLCttD 

DAD 


.0128 

REP 

2 

LAST 

518 

04,3233 

02611 0 



TINTSOl 


0129 

REP 

2 

LAST 

457 

04,3234 

00037 0 



T 


0130 

REP 

4 

LAST 

519 

04,3235 

03656 1 


STORE 

TINT 

TI = TI TE 

0131 





04 , 3236 

45345 1 

JUNCTN2 

DLGIAD 

DSU 


0132 

REP 

5 

LAST 

519 

04,3237 

03656 1 



TINT 


0133 

REP 

2 

LAST 

519 

04 , 3240 

02613 1 



dblttime 


0134 

REP 

1 



04,3241 

02615 1 


STORE 

TABOTIME 

IT r TI - DE1,TA T 

R0135 

.... 

MAINRINE 

. . . . 








83435.25 

PERIAPOl 

SHIPTRl 

VNDSPLY 

BANKCALL 

GOFIASH 

OOTOPOOH 

VN1645 


0140 

REP 

19 

LAST 

519 

04,3242 

34041 

0 

MAINRINE STCALL TDECj 

0147 

REP 

2 

LAST 

519 

04,3243 

11413 

1 


INTRPVP 

0146 





04,3244 

77745 

1 

DCGMD 


0149 

REP 

24 

LAST 

518 

04,3245 

03413 

1 


TIG 

0150 

REP 

7 

LAST 

482 

04,3246 

03503 

1 

STORE 

INTIMB 

0151 





04,3247 

77331 

0 

SSP 

VIXMD 

0152 

REP 

14 

LAST 

517 

04,3250 

02371 

0 


SUBEXIT 

0153 

REF 

1 



04,3251 

11255 

0 


TEST3979 

0154 

REP 

15 

LAST 

519 

04,3252 

00001 

0 


BAIT 

0155 





04,3253 

77624 

1 

CAIX, 


0156 

REP 

1 



04,3254 

72547 

1 


83435.25 

0157 





04,3255 

43014 

0 

TEST3979 BOPP 

BCN 


PHECISICN UPDATE PASSIVE VEHICTE TO 

target time 
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0158 

REP 

2 

IAST 

518 

04,3256 

04346 1 



P39/79S» 


0159 

fffiP 

1 



04,3257 

11266 0 



miNRINl 


0160 

REP 

5 

LAST 

486 

04,3280 

01311 0 



PINALFLB 


0161 

REP 

1 



04,3261 

11264 1 



P 39 P 79 


0162 





04,3262 

77614 1 


set 



0163 

vep 

6 

LAST 

518 

04,3263 

00470 1 



UPOATPLO 


0164 





04,3264 

77778 1 

P39P79 

EXIT 



01645 

REP 

1 



04,3285 

0 3313 0 


IC 

DSPLYSI 

for P 39 AND P 79 

0165 





04,3266 

51575 1 

MAINRlNl VLOAD 

ABVAL 


0166 

I«P 

12 

LAST 

483 

04,3287 

03646 0 



DELVEBT3 


016T 

REP 

5 

LAST 

457 

04,3270 

26635 0 


STOYL 

IffiLVTPI 

DELTA V 

0168 

HEP 

4 

LAST 

467 

04,3271 

03640 0 



VPASSi 


0169 





04,3272 

51451 0 


VSU 

ABVAL 


OITO 

RH' 

T 

LAST 

483 

04,3273 

03620 0 



VTPRlie 


OlTl 

HEP 

5 

LAST 

457 

04,3274 

26637 1 


STCVL 

DBLVTPP 

delta V (PINAL) = V«T - VT 

01T2 

RH» 

16 

LAST 

490 

04,3275 

03540 0 



RAOT 3 


0173 





04,3278 

45115 0 


POYL 

CALL 


0174 

HEP 

9 

LAST 

483 

04,3277 

03612 1 



VIPRIIB 


0175 

HEP 

2 

LAST 

457 

04,3300 

45312 0 



PBRIAPOi 

get perigee ALTITLDE 

0176 





04,3301 

77624 1 


CALL 



0177 

HS' 

2 

LAST 

457 

04,3302 

45422 1 



ailFTRl 


0178 

REP 

3 

LAST 

457 

04,3303 

02641 0 


STORE 

POSTTPI 


0179 





04,3304 

43014 0 


BCN 

SET 


0180 

REP 

6 

LAST 

520 

04,3305 

01311 0 



FDMtPLG 


0181 

HEP 

1 



04,3306 

11310 0 



DSPLYsb 


0182 

HEP 

T 

LAST 

520 

04,3307 

00470 1 



UPOATPLO 


0183 





04,3310 

77776 1 

DSPLYS 8 

EXIT 



0184 

HEP 

1 



04,3311 

3 3445 1 


CAP 

V06N58SH 

DISPLAY HP, delta V, DELTA V (FINAL) 

0185 

REP 

3 

LAST 

518 

04,3312 

0 3427 0 


TC 

VNDSPLY 


0186 

HEP 

1 



04,3313 

3 3446 1 

DSPLY81 

CAP 

VO 6 N 8 ISR 

DISPLAY DELTA V (LV) 

0187 

RH' 

4 

LAST 

520 . 

04,3314 

0 3427 0 


TC 

VNDSPLY 


0186 

REP 

65 

LAST 

518 

04,3315 

0 6006 1 

■ 

TC 

INTPRET 


.0189 





04,3316 

77214 0 


CLEAR 

VIXMD 


0204 

REP 

2 

LAST 

472 

04,3317 

01267 0 



XOa.VFLG 


0205 

REP 

13 

LAST 

520 

04,3320 

036 4 6 0 



DELVEBT3 


0206 

HEP 

5 

LAST 

473 

04,3321 

37646 1 


SICALL 

DELVSIN 


0207 

REP 

4 

LAST 

486 

04,3322 

73005 0 



VN1645 

DISPIAY TBK^KCNT, TTOGO, +MGA 

0208 





04,3323 

52014 0 


BCN 

GOTO 


0209 

RHP 

3 

LAST 

520 

04,3324 

04306 0 



P 39 / 79 SW 


0210 

REP 

1 



04,3325 

11347 1 



P 39 /P 79 B 


0211 

REP 

1 



04,3326 

11206 0 



RECYCLE 


II0212 

STABLE ORBIT MIDCOURSE PROGRA,''l 

(P39 and P 79 ) 




R0213 

MOD NO -1 


LOO section 

i 

1 

ORBIT - 

P38-P39 



B0214 

MOD BY RUDNIOKI 

.S DATE 25JAN68 







B0215 FlJNCTICNAl, DESCRIPTICN 


R0216 

B0217 


P39 and PT 9 CALClJIATC TOR RRajIRED DBl.TO V AND OlHER INITfAl, 
CtWDITICNS REQUIRED BY THE AGO TO MAKE A MIDCCURSE CORRECTION 
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R0218 

R0219 

maneuver after completing the SOI maneuver But before making 

THE SOR MANEUVER 

R0220 

CALLING sequence 


R0221 

astronaut request thru dskv 

R0222 

B0223 

V37E39 E IP THIS VQIICLE IS active vsiicle 

V37E79B IP OTHER vailCLE IS ACTIVE VBIICLE 

R0224 

input 


R0225 

R0226 

H0227 

(1) TPASS4 

(2) lAHOTIME 

TIfC OP INTERCEPT - SAVED PROM P3B/P78 

TIME that passive VEHICLE IS AT INTERCEPT POINT - 
SAVED FRQ4 P38/P70 

R0228 

OUTPUT 


R0229 

R0230 

R0231 

R0232 

(1) TRKMCCNT NUNBEH OP MARKS 

(2) TTOGO TIME TO GO 

(3) tMGA MIDDLE OI^«AL ANGLE 

(4) DELVLVC DELTA VELOCITV AT MID - LOCAL VERTICAL COORDINATES 

R0233 

subroutines used 


R0234 

R0235 

R0236 

R0237 

R0238 

R0239 

R0240 

AVPLAOA 

AVPLAGP 

loadtii® 

SELECTMU 

PHECSBT 

S34/35.I 

MAINRINE 



0241 

REP 

111 

• LAST 

518 

04,3327 

0 4555 

0 

P39 

TC 

rankcail 


0242 

REP 

4 

LAST 

517 

04,3330 

73726 

0 


CADH 

AVFLAGA 

THIS VEHICLE ACTIVE 

0243 





04,3331 

0 0006 

1 


EXTEND 



0244 

REP 

2 

LAST 

460 

04,3332 

3 1422 

1 


DCA 

ATIGINC 


0245 

REP 

1 



04,3333 

0 3340 

0 


TC 

P39/P79A 


0246 

REF 

112 

LAST 

521 

04,3334 

0 4555 

0 

P79 

TC 

BANkCALL 


0247 

REP 

4 

LAST 

517 

04,3335 

73741 

1 


CADR 

AVPLAGP 

OIHER VHIICLE active 

0248 





04,3336 

0 0006 

1 


EXTEND 



0249 

REP 

2 

LAST 

460 

04,3337 

3 1424 

1 


DCA 

PTIGINC 


0250 

REF 

9 

LAST 

460 

04,3340 

53«764 

1 

P39/P79A 

DXCH 

KT 

TIP« TO PREPARE FOR Burn 

02505 

REP 

113 

LAST 

521 

04,3341 

0 4555 

0 


TC 

BANKCALL 


02506 

REP 

4 

LAST 

517 

04,3342 

73746 

0 


CADR 

P20PLGCN 

SET UPOATPU3, TRACkFLG 

0251 

REP 

66 

LAST 

520 

04,3343 

0 6006 

1 


TC 

INTPRET 


0255 





04,3344 

45014 

0 


set 

CALL 


02555 

REP 

4 

LAST 

520 

04,3345 

04066 

0 



PSg/TSSVf 


0256 

REP 

4 

LAST 

518 

04,3346 

10716 

0 



SEI£CTMU 

SBIECT mi, CTPAR PINAIFTTI, go to VN1645 

0257 





04,3347 

43234 

0 

P39/P79B HTB 

DAD 
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02SS 

VBF 

9 

LAST 

508 

04,3350 

45505 

0 


LQ4DTIMB 

•2S9 

VSP 

10 

LAST 

521 

04,3351 

02364 

1 


KT 

02S95 

REP 

25 

LAST 

519 

04,3352 

03413 

1 

STORE 

TIO 

0260 

RHP 

20 

LAST 

519 

04,3353 

34041 

0 

STCALL IDECi 

0261 

REP 

3 

LAST 

460 

04,3354 

45354 

1 


PRECSET 

0262 





04,3355 

T7624 

1 

CALL 


0263 

REP 

3 

LAST 

461 

04,3356 

72522 

1 


334 / 35.1 

0264 





04,335T 

52145 

0 

DLOID 

goto 

0265 

HEP 

2 

LAST 

519 

04,3360 

02615 

1 


TAHGTINE 

0266 

REP 

1 



04,3361 

11242 

0 


MAINRTNB 


TIO = T (HffiSENT) + PREPARATION TIME 
PRECISICK UPDATE ACTIVE AND PASSIVE 
vailCLES TO TIO 


GET UNIT NORMAL 


PlfflC/TT 


calculate delta V AND DELTA V (LV) 


mZT3 SlEBOUrlNES USED 


phecsbt 

timethet 

S34/35.1 


•2T7 





04,3362 

71220 

1 

PHEC/TT STO 

DLOXD 

0278 

REP 

6 

LAST 

476 

04,3363 

02367 

1 



0279 

RBP 

26 

LAST 

522 

04,3364 

03413 

1 


TIG 

0280 

RBP 

21 

LAST 

522 

04,3365 

34041 

0 

STCALL TDECi 

0281 

REF 

4 

LAST 

522 

04,3366 

45354 

1 


PRECSET 

0282 





04,3367 

53775 

1 

VLOAD 

VSR* 

0283 

REP 

8 

LAST 

490 

04,3370 

03554 

0 


RPASS3 

0284 





04,3371 

57176 

0 


0,2 

0285 

HSE 

3 

LAST 

488 

04,3372 

16657 

1 

STQDL 

RVEC 

0286 

HEP 

5 

LAST 

456 

04,3373 

03754 

1 


CPNTANG 

0287 





04,3374 

71406 

0 

puai 

COS 

0288 

HEP 

3 

LAST 

456 

04,3375 

16734 

0 

STODl, 

csm 

0289 





04,3376 

43156 

1 

SIN 

SET 

0290 

RBP 

2 

LAST 

456 

04,3377 

03466 

0 


RVSW 

0291 

REP 

3 

LAST 

456 

04,3400 

26732 

0 

STCW, 

SNTH 

0292 

RSP 

6 

LAST 

490 

04,3401 

035 6 2 

0 


VPASS3 

0293 





04,3402 

77657 

0 

VSR* 


0294 





04,3403 

57176 

0 


0,2 

0295 

HEP 

5 

LAST 

488 

04,3404 

36746 

1 

STCAIi, WEC 

0296 

RBP 

2 

LAST 

456 

04,3405 

24737 

1 


TIMETHET 

0297 





04,3406 

77624 

1 

CALL 


0290 

ttBP" 

.4 

LAST 

522 

04,3407 

72522 

1 


S34/35.I 

0299 





04,3410 

52145 

0 

DUWD 

GOTO 

0300 

RS' 

3 

lAST 

519 

04,3411 

00037 

0 


T 

0301 

RHP 

T 

LAST 

522 

04,3412 

02367 

1 


RTRN 


PRECISION UPDATE ACTIVE AND PASSIVE 
vailClES TO tig 


GET TBANSPER TIME BASED ON CENTANG OP 
PASSIVE VSIICLE 


GET UNIT N0K4AL 


INTRPVP 

SUBROUTINES USED 


CSMPREC 

tfl4PflEC 


8 lAST 522 


04.3413 43020 1 INTRPVP STO BOFF 

04.3414 0236T 1 RTBN 


PRECISICN update PASSIVE VEHICITI TO 
TDECi 




! 

I 
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SXABLE (xeiT - P38-P39 


0308 

0309 

0310 

0311 
0312' 

0313 

0314 

0315 

0316 
031T 

R0318 

R0319 

R0320 

-R0321 

R032Z 


REP 

REP 


lAST 490 


REP 3 LAST 490 
REP 9 LAST 522 


REP 3 LAST 490 


lEP 10 LAST 

VMJSPLY ... 

StBROUTINES USED 

BANKCALL 

OOFLASH 

OOTOPOOH 


523 


04,3415 

04,3418 

04,3417 

04.3420 

04.3421 

04.3422 

04.3423 

04.3424 

04.3425 

04.3426 


01352 

11423 

77624 

27022 


77650 1 


CALL 


GOTO 


02367 

77824 

27036 

77650 

02367 


OIHEtV CALL 
GOTO 


AVPIAO 

ODffiRV 

CSMPREC 

RTRN 

LB>1PREC 

RTRN 


REP 11 LAST 523 


REP 

REP 


4 LAST 476 

5 LAST 523 
REP 114 LAST 521 
REP la LAST 502 

16 LAST 518 
12 LAST 523 


REP 

REP 


0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

END OP S400CH .007 *** 


04,3427 

04.3430 

04.3431 

04.3432 

04.3433 
04 , 34 34 

04.3435 

04.3436 

04.3437 

04.3440 

04.3441 

04.3442 

04.3443 

04.3444 

04.3445 

04.3446 


0 0006 
23«767 
55«765 
3 1765 

0 4555 
. 20624 

1 4108 

0 1767 

1 3432 

01441 1 
01467 0 
01008 0 

01471 1 

01442 1 

01472 1 
01521 0 


VNDSPLY 


V06N33SR 

V06N55SR 

V04N06SR 

V06N57SR 

V06N34SB 

V06N58SR 

V06N81SB 


EXTEND 
QXCH 
TS 
CA 
TCR 
CADR 
TCP 
TC 
TCP 
VN 
VN 
VN 
VN 
VN 
VN 
VN 


RTWI 

VERBNCUN 

VERBNQUN 

BANKCALL 

GOPLASH 

GOTOPOCH 

RTRN 

-5 

0833 

.0655 

0406 

0857 

0634 

0658 

0681 


20’35 OCT. 28,1968 SMOOQI .007 PAOB 523 
USERoS PAGE NO. 8 B4 S3 


PLASH DISPLAY 


TEIWINATE 

PROCEED 

HECYCIB 
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20*35 OCT. 28,1968 PANDORA .080 PAOB 524 


USBRaS PAGE NO. i Eo S3 


POOOl EAROT orbit insertion !«WIT03 program 
B0002 * 4 


PROGRAM DBSCRIPTICN -PH- 


MOD NO. 1 
MOD BY ELIASSEN 


functional description 


Pll IS initiated BY 


A1 GYROCOMPASS PRO P02 WHEN LIETOPP DISCRETE IS RSCEIVED OR 
B) BAQoiP THRU VERB 75 ENTER 


PROGRAM WILL 

1. ZERO CMC CLOCic AT LIErOPP (OR UPON RECEIPT CP EACJojp) 

2. UPDATE TEPHEM TO TIffi CMC CLOCK WAS ZEROED 

3. initiate servicer at PHEREADi 

4. CHANGE major MODS TO 11 

5. CLEAR DSKY IN CASE OP V 75 

6 . STORE LIFTtPP IMU-CDU ANCXES FOR ATT. ERROR DISPIAY 

7. terminate GYRCCCMpASSINO - 

8. CCMPUIE INITIAL VECTORS IW, VN _ _ _ 

9. COfPUTE RBFS'MAT FOR PHELAUNCM ALIGN>ENT WiesK U ,U ,U ARE 

” X Y Z 

U =UNIT(-R) lOCAL VERTICAL AT TIME OF LIFTOFF 
Z 


U =lpriT (A), A=HOR vector At IAunCH AZIJVIH 
X 


U =U * U 
U Z X 


10. set REFS44AT KNOWN FLAG 

11. SET AVGEXIT IN SERVICER TO VHHDOr TO 
CCMPUIE AND DISPLAY NCUN 62 EVERY 2 SECCNDS 


RI VI - 
R2 reXJT 
R3 H 


INTERTIAL velocity MAGNITUDE IN FPS 

- rate OF CHANGE OF VEHICLE VEL IN FPS 

- VEHICLE altitude ABOVE PAD IN RM 


DISPLAY BODY AXES ATT. ERRORS CN FDA I NEEWDS 


A) FRCM L.O. TO RESTART (APPROX. 0 TO <-10SBCS AFTER L.O.) 
DESIRED ATTITLDE IS AS STORED AT L.O. 

B) FRCM UPSTART TO POLYSTOPCAPPRQX. »10 TO ti33SECS AFTER 1.0) 
DESIRED ATTITUDE IS SPECIFIED BY CMC PITCH A.\D ROD 
Pa,YMCMIALS LURING SATURN RazOUT AND PIlCHOvBR 


I 
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L 

m 

' useros pace no. 2 

Bo S3 

1(0041 

110042 

1HB DISPLAY IS RON As UM PRIORITY JCB APPROK. 

EVERY 1/2 SEC OR LESS AND IS DISABLH3 UPCN OVFLO OP TIMBl 



ROOST 

SlBROl/riNES CALLED 



ROOSS 

R00581 

R00582 

R0059 

R00591 

2PHSCHNO BANKCAU, CALCfflA CDUTRIO CLEANDSP DANZID 

DBLAYJOB EARTHR ENDCyjOB PINDVAC IBNkCALL 

INTPRBT LALOTORV needier NEviMODEX PHASCHNO 

POSTJlWP POmiSSRS PRBRSADi REGODSPR Sll.l 

SERVEXIT WSKCVBR TCDANZIG V1ST02S WAITLIST 



R0060 

ASTRONAUT REQUESTS (IP ALTIUDE ABO/E 300,000 FT) 



R0061 

B0002 

R0063 

DSKY - 

MONITOR display OP TIEE TO PERKSE R1 HOURS 

R2 MINUIES 



R00S4 

ROOSS 

ROOSS 

ROOST 

DSKY - 

MONITOR DISPLAY OP Rl APOGEE ALTITUDE IN NAUTICAL MILES 

R2 perigee altitude IN NAUTICAL MILES 

R3 TPP IN MINUTES/SECS 



R0068 

R00S9 

IP ASTRONAUT HAS REQUESTED ANY OP THESE DISPLAYS HE MUST 

HIT key release BUTTCN TO RETURN TO NOR-IAL NOUN 82 DISPLAY 



ROOTS 

NORMAL EXIT MODE 



ROOTl 

astronaut verb 37 EWTEB 00 B<TER 



R00T2 

ALARM MODES - NCNE 



R0aT21 

ABORT EXIT MODES - 



R00T22 

ROOT23 

EARLY BOOST ABORT POLLOffED BY REENTRY V 37 B 62 B 
late boost abort followed by REENTRY V 37 E 61 B 



R00T3 

OUTPUT 



ROOTS 

ROOTS 

ROOTS 

HOOTT 

TLIFTOPP (DP) TEPHEM (TP) 

RBFSWAT 

DSKY DISPLAY 

FDAI DISPLAY 



ROOTS 

erasable INITIALIZATION 



ROOT9 

R0080 

R0081 

R0082 

RO083 

AZO, AXO, -AYO 

LATITUDE 

PADLONG 

TEPHEM 

PGNCSALT 
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Pll 


R0084 


POCYNUM IHHU POLYNUM +140) 



R00841 

rpstart 






H00a42 

POLYSTOP 






R0085 

FLAGS set or BESET 





R0086 


set BEPSKFLO 





R008T 


SET DVMCN 

IDLE 

FLAG 




R0088 


CLEAR EBADFLAG 





R0089 

debris 






R0090 


LIPTIPMP 






R0091 


P0LYNU4 THRU POLYNUM +7 




R0092 


SPOLYARO 






R0093 


BCDYi, BODYr, BCDY3 




R0094 


VMA02. ALTI. HDOT 




H0095 


CENTRALS, 

CORE 

set and vac areas 



0096 

REF 

1 




COtMT 

34 /Pll 

009T 

REF 

1 


4730 


BITS5-6 = 

SUPEhoiI 

0098 




42,3521 


bane 


0099 

REF 

1 


34,2000 


SETLOC PiiCNE 

0100 




34,2002 


bank 


0101 

REF 

6 LAST 

213 

E3,1708 


EHANK= 

tephem 

0102 

REP 

2 LAST 

ld4 

34,2002 

3 4744 1 

Pll CA 

aWNK3 

0103 

REP 

20 LAST 

506 

34,2003 

54 003 0 

TS 

ebank 

0104 




34,2004 

0 0006 1 

EXTO® 


0105 

REP 

1 


34,2005 

3 2273 0 

DCA 

REPiiS 

0106 

REF 

2 LAST 

ISl 

34,2006 

52 757 0 

DXCH 

-PHASES 

01061 

REP 

111 LAST 

509 

34,2007 

4 4714 0 

CS 

zero 

01062 




34,2010 

22 007 0 

ZL 


0107 

REP 

2 LAST 

T8 

34,2011 

55«265 0 

TS 

LIPTTEMP 

0108 

REP 

2 LAST 

181 

34,2012 

52 763 1 

DXOf 

-PHASES 

0111 




34,2013 

0 0006 1 

Pii+7 Extend 


0112 

REF 

1 


34,2014 

3 2275 0 

DCA 

REPiiSA 

0113 

REP 

1 


34,2015 

S3«337 0 

DxCH 

TLIFTOFP 

0114 




34,2016 

0 0008 1 

BXTEJ® 


0115 

REF 

13 last 

408 

34,2017 

3 0025 0 

DCA 

timer 

0116 

REF 

3 LAST 

526 

34,2020 

53«266 0 

DXCH 

LIFnSMp 

OUT 

REP : 

112 LAST 

526 

34,2021 

3 4714 1 

CA 

ZERO 

0118 




34,2022 

22 007 0 

a. 


0119 

REF 

14 LAST 

526 

34,2023 

52 025 1 

DxCH 

TIMES 

0120 

REF 

2 LAST 

526 

34,2024 

53«337 0 

BEPllA -2 DxCH 

TLIPTOFF 

0121 

REF 

3 LAST 

526 

34,2025 

52 757 0 

REPllA-l DXCH 

-PHASES 


20’35 OCT. 28,1968 PAMX3RA .080 PACE 526 
USER.S PACE NO. 3 EO S3 


direct restarts to RBPii 


inactive GROIP 5, PRa^AuNCH PROIECrICN 


for restarts 


reset phase 
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Pll 


USER^ PAOS NO. 


E3 S3 


0122 





34,2026 

0 0004 0 

RBPllA n«INT 


0123 





34,2027 

0 0006 1 

EXTEND 


0124 

REP 

7 

LAST 

526 

34,2030 

3 1710 0 

OCA 

TEPffiM +1 


0125 

REP 

2 

LAST 

78 

34,2031 

53«271 0 

DXCH 

TEHSMi ♦! 


0126 

REP 

8 

LAST 

527 

34,2032 

3 1706 1 

CA 

TBPfffiM 


0127 

REP 

3 

LAST 

527 

34,2033 

57«267 0 

XCH 

TBH®4l 


0128 





34,2034 

0 0006 1 

EXTB® 


0129 

REP 

3 

LAST 

526 

34,2035 

3 1337 1 

OCA 

TLIPrOPF 


0130 

REP 

4 

lAST 

527 

34,2033 

21«271 0 

OAS 

TBHffiMl +1 


0131 

REP 

5 

LAST 

527 

34,2037 

27«267 1 

AOS 

TEPISMl 

CCBRBCTOFOB (VERPLOW 

0132 

IfflP 

23 

LAST 

503 

34,2040 

0 5301 0 

TC 

PHASCWO 


0133 





34,2041 

05023 0 

OCT 

05023 


0134 





34,2042 

22000 1 

OCT 

22000 


0135 





34.2043 

0 0004 0 

IMfINT 



0136 





34,2044 

0 0006 1 

EXTB© 



6137 

REP 

6 

lAST 

527 

34,2045 

3 1270 0 

OCA 

TEmE4i 


0138 

REP 

9 

LAST 

52T 

34.2046 

S3«707 1 

OXCH 

TEHffiM 


0139 

REP 

7 

LAST 

527 

34.2047 

3 1271 1 

CA 

TBHIB41 +2 


0140 

REP 

10 

LAST 

527 

34.2050 

57«710 0 

XCH 

TEB®4 *2 


0141 

REP 

1 



34,2051 

3 2000 0 

CAP 

EB»rf5rr 


0142 

REP 

21 

LAST 

526 

34,2052 

54 003 0 

TS 

eba.'^c 


01421 

REP 

10 

LAST 

212 

E7,1431 


EBAlflc^ 

dvcntr 


0143 

REP 

19 

LAST 

248 

34,2053 

0 4633 0 

TC 

IBNkCALL 


0144 

REP 

1 



34,2054 

766 25 1 

CADR 

PRElEADi 

zero pips and initialize 

0145 

HEP 

24 

LAST 

527 

34,2055 

0 5301 0 

TC 

mASCHNG 


0146 





34,2056 

05023 0 

OCT 

05023 

CIKTINUE HERE CN RESTART 

0147 





34,2057 

22000 1 

OCT 

22000 


0148 

REP 

•4 

LAST 

440 

34,2060 

3 4731 0 

CAP 

.5SEC 

start ATT error DISPLAV 

0150 

REP 

20 

lAST 

509 

34,2061 

0 5140 1 

TC 

■aitlist 

IN .5 SEC 

0151 

REP 

3 

LAST 

210 

E6,1704 


EHAN1C= 

BODVs 


0152 

REF 

2 

LAST 

210 

34,2062 

02314 0 

2CADR 

ATEHTAEK 


0152 





34,2063 

70066 0 




0153 

REF 

6 

LAST 

444 

34,2064 

0 5243 1 

TC 

NEaWODEX 

DISPLAY W 11 

0154 





34,2065 

00013 0 


11 


0155 

REF 

115 

LAST 

523 

34.2066 

0 4555 0 

TC 

BA.'JKCAIi 


0156 

REP 

3 

LAST 

447 

34,2067 

20607 1 

CADR 

CI£A.NDSP 

clear DSKY in CASE OP V75 

0157 

REP 

3 

LAST 

427 

34,2070 

0 5 261 1 

TC 

2PHSC«Na 


0158 





34,2071 

40514 0 

OCT 

40514 

PROIECr aterivask 

0159 





34,2072 

00073 0 

OCT 

00073 


0160 

REF 

1 



34,2073 

3 2001 1 

CAP 

E8QPLACE 


016J 

REF 

22 

LAST 

527 

34,2074 

54 003 0 

TS 

ERANK 
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•leii 

BBP 

5 

last 

423 

B5,1426 


fflANK: 

: ffl>LACES 


flSlll 

RSP 

1 



34,2075 

3 2276 0 

CA 

PllXIT 

set exit FRCM PHOUT in EARIHR 

016112 

: RBP 

6 

LAST 

528 

34,2076 

55«426 1 

T3 

(PLACES 


0162 





34,2077 

22 007 0 

ZL 


STORE DP GIMSAL 

01621 

BBP 

10 

LAST 

434 

34,2100 

3 0032 0 

CA 

CDUX 

ANGLES FOR ATTITUDE 

016211 

REP 

12 

LAST 

444 

34,2101 

53«70O 0 

OXCH 

OGC 

ERROR DISPLAY 

016212 




34,2102 

22 007 0 

ZL 


after L.O. 

018213 

REP 

3 

LAST 

411 

34,2103 

3 0033 1 

CA 

CDUY 


016214 BBF 

2 

LAST 

93 

34,2104 

53«762 1 

DXCH 

IGC 


01622 





34,2105 

22 007 0 

ZL 



016221 

BEE 

7 

LAST 

411 

34,2106 

3 0034 0 

CA 

CJXjz 


016222 US' 

2 

LAST 

93 

34,2107 

53«764 1 

DXCH 

HOC 


016223 

6T 

LAST 

521 

34,2110 

0 6006 1 

1C 

INTPHET 


016224 





34,2111 

74575 0 

VLQAD 

VSRl 

SCALE OGC B-l 

016225 

REP 

13 

LAST 

528 

34,2112 

02760 1 


OGC 


016228 

IffiP 

14 

LAST 

528 

34,2113 

02760 1 

STORE 

OGC 


0163 





34,2114 

64375 1 

VLOAD 

MXV 


0164 

RBP 

2 

LAST 

9T 

34,2115 

02467 0 


THEWN 


0165 

BfiP 

30 

LAST 

443 

34,2116 

02672 0 


XS4 


0166 





34,2117 

53372 1 

VSLl 

VAD 


016T 

RHP 

3 

LAST 

440 

34,2120 

02650 0 


EBCCMP 


0168 

RHP 

4 

LAST 

528 

34,2121 

16650 0 

STODL 

EBCCMP 


0169 

RHP 

4 

LAST 

527 

34,2122 

01337 1 


■njIFTOFF 


OITO 





34,2123 

52131 0 

SSP 

GOTO 


OlTl 

RHP 

6 

LAST 

514 

34,2124 

00052 0 


32 


OITZ 

REP 

1 



34,2125 

66424 0 

CADR 

PRCUT 

return FRCM EARTHR 

0173 

RBP 

2 

LAST 

423 

34,2128 

66373 0 


EAHTHR +3 


0174 

RBP 

68 

LAST 

528 

34,2127 

0 6006 1 

matrxjqb tc 

INTPHET 


01741 





34,2130 

77731 1 

SSP 


zero RTX2 

01742 

REP 

10 

LAST 

492 

34,2131 

03747 0 


RrX2 

for 

01743 





34,2132 

00000 1 


0 

earth 

0175 





34,2133 

65345 0 

DLGMD 

POOL 


0176 

RBP 

1 



34,2134 

01273 0 


PGNCSALT 

ALTITUDE OF PGNCS 

0177 

RBP 

2 

LAST 

78 

34,2135 

01264 0 


PADLCNG 

LCNGITUDE 

0178 





34,2136 

55525 0 

POOL 

VDGP 


0179 

BBP 

6 

LAST 

445 

34,2137 

02403 1 


latitude 

GEODETIC latitude 

0180 

REP 

6 

LAST 

276 

34,2140 

15104 0 

STODL 

LAT 

lat,ixmg,alt are ccnsecutive 

0181 

RHP 

2 

lAST 

514 

34,2141 

15332 1 


HleZBROS 

TIME r 0 

0182 





34,2142 

45014 0 

CLEAR 

CALL 


0183 

REF 

2 

LAST 

451 

34,2143 

00662 0 


BRADPLAG 


0164 

REP 

1 



34,2144 

26373 1 


lalotorv 

CCNVERT TO POSITION VECTOR IN REF. COORDS 

0185 

REF 

4 

LAST 

77 

34,2145 

35232 1 

STCALL HSl 


01851 

RHP 

1 



34,2148 

77256 0 


CALCGRAV 

return with gravity 

01852 





34,2147 

77658 1 

UNIT 


IN MPAC 

01853 

REP 

5 

LAST 

497 

34,2150 

25752 0 

STOVL 

REFSNWAT +12D 

INITZ = INITCGHAV) 

01854 

RHP 

5 

LAST 

528 

34,2151 

01232 0 


RNl 


0186 





34,2152 

74235 0 

VXV 

VXSC 


0187 

REP 

5 

LAST 

289 

34,2153 

01714 1 


UNITW 

SCALED AT 1 

0188 

REP 

1 



34,2154 

30300 1 


-ERTHRAT 

V = EARTHRATE X R 
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0169 





34,2155 

77T12 0 

vsu 


SCALE TO ZfT) M/CS 

0190 

REP 

2 

LAST 

TT 

34,2156 

25240 0 

STOVL 

VNl 


0191 

REP 

6 

lAST 

528 

34,2157 

01752 0 


REPSWAT +12D 


0209 





34,2160 

53435 0 

VXV 

UNIT 


0210 

REP 

6 

LAST 

528 

34,2161 

01714 1 


UNIT* 

IREPs X UNIW) = EAST 

0211 





34,2162 

47206 0 

PUSH 

VXV 


0212 

REP 

T 

LAST 

529 

34,2163 

01752 0 


HEPSmAT +12D 

(EAST X EEP3) = -saim 

0213 





34,2164 

65256 0 

IHIT 

POOL 


0214 

REP 

5 

LAST 

44T 

34,2165 

02634 1 


LAUNCHAZ 

COSCAzl't'SCUTH 

0215 





34,2166 

74346 0 

cos 

VXSC 


0216 





34,2167 

77626 0 

SIADR 



021T 

REP 

6 

LAST 

529 

34,2170 

62041 0 

STODL 

reps»mat 

temporarv storage 

0218 

BSP 

6 

LAST 

529 

34,2171 

02634 1 


LAUNCHAZ 


0219 





34,2172 

74356 1 

SIN 

VXSC 

SIN(AZ)4EA ST 

0220 





34,2173 

53455 0 

VAD 

UNIT 

SIN(AZ)4EAST - C0S(Az)4sanH = REFi 

0221 

REP 

9 

LAST 

529 

34,2174 

01736 1 


REP9WAT 


0222. 

REP 

10 

LAST 

529 

34,2175 

01736 1 

STORE 

REFSMAT 


0223 





34,2176 

53435 0 

VXV 

UNIT 

(REFl X HBP3) = -HEF3 

0224 

HEP 

11 

LAST 

529 

34,2177 

01752 0 


RBPSMAT +12D 


0225 





34,2200 

77676 0 

VCCMP 



0226 

iffiP 

12 

LAST 

529 

34,2201 

01744 1 

STORE 

REFSWAT +6 


02261 





34,2202 

45 345 1 

DLOID 

DSU 


02262 

REP 

11 

LAST 

463 

34,2203 

15330 0 


DPHALP 

1/2 REV 

02263 

REP 

T 

LAST 

529 

34,2204 

02634 1 


IAuNCHAz 


02264 





34,2205 

65215 1 

DAD 

POOL 


02265 

REP 

S 

LAST 

445 

34,2206 

02401 0 


AzMrm 


02266 

REP 

2 

LAST 

113 

34,2207 

03301 0 


sathlrt 

set satrlrt = -satrlrt ip 

0226T 





34,2210 

45565 0 

SIGN 

siadr 

(I/2HEV -LAVNCHAZ +AZlMtnH) IS NEGATIVE 

02268 

REP 

3 

LAST 

529 

34,2211 

74476 1 

STORE 

sathlrt 

FOR BOLL CMS IN FDAI ATT. ERROR DISPLAY 

022T 





34,2212 

77414 0 

SET 

EXIT 


0228 

REF 

2 

LAST 

4T3 

34,2213 

01482 0 


RBPS^IFTjG 

set refs'Mat known flag 

0229 

REP 

25 

LAST 

52T 

34,2214 

0 5301 0 

TO 

PHASCHNG 


0230 





34,2215 

04023 1 

OCT 

04023 


0231 





34,2218 

0 0006 1 

BXTBSD 



0232 

REP 

1 



34,2217 

3 2302 1 

DCA 

PllSCADR 


0233 

REF 

1 



34,2220 

53«223 1 

DXCH 

AVGEXIT 

set AvGEXiT 

0234 

REP 

2 

LAST 

301 

34,2221 

3 7665 0 

CA 

PRIO31 

2 SECONDS AT 2(+8> 

0235 

REF 

9 

LAST 

436 

34,2222 

55*074 1 

TS 

l/PIPADT 


0236 

REP 

5 

LAST 

411 

E6,1501 


EEANKr 

RCSFLAGS 


023T 

REF 

6 

LAST 

253 

34,2223 

3 4752 0 

CA 

EBANK6 


0238 

REP 

23 

LAST 

52T 

34,2224 

54 003 0 

TS 

EBANk 


0239 





34 , 2225 

0 0004 0 

INHINT 



0246 

REP 

113* 

LAST 

526 

34,2226 

4 4714 0 

CS 

zero 


024T 

REF 

1 



34,2227 

55*063 1 

TS 

WASEs 

RESTART RBADACCS 2 SECONDS AFTER LIFTOFF 


1 . 
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0248 

BSF 

10 

LAST 

430 

34,2230 

4 0025 

1 


0249 

RBP 

1 



34,2231 

6 4735 

1 


0250 

REP 

142 

LAST 

509 

34,2232 

10 000 

0 


0251 





34,2233 

1 2236 

0 


0252 





34,2234 

1 2236 

0 


0253 

REP 

114 

LAST 

529 

34,2235 

3 4714 

1 


0254 

REP 

65 

LAST 

518 

34,2236 

6 4712 

1 


0255 

REP 

21 

LAST 

5 27 

34,2237 

0 5140 

1 


0258 

REP 

14 

LAST 

212 

B6,1661 




025T 

REP 

1 



34,2240 

02647 

0 


025T 

REP 

1 



34,2241 

76066 

0 


0258 

RBP 

4 

LAST 

527 

34,2242 

0 5261 

1 


0259 





34,2243 

00003 

1 


0260 





34,2244 

00025 

0 


0261 

REP 

36 

LAST 

447 

34,2245 

0 4574 

0 


0282 

HEP 

2 

LAST 

211 

34,2246 

T7141 

0 


0263 

RBP 

11 

LAST 

527 

E3,1706 




0264 





34,2247 

0 0004 

0 

REPII 

0265 

HEP 

1 



34,2250 

10 763 

1 


0266 

REP 

64 

LAST 

518 

34,2251 

0 5112 

0 


026T 

HEP 

4 

LAST 

526 

34,2252 

11«265 

0 


0268 





34,2253 

1 2257 

1 


0269 





34,2254 

1 2257 

1 


02T0 





34,2255 

1 2257 

1 


0271 

REP 

1 



34,2256 

1 2013 

0 


0272 

REP 

5 

LAST 

528 

34,2257 

4 1336 

1 


0273 





34,2260 

0 0006 

1 


0274 

REP 

1 



34,2261 

6 2267 

0 


0275 

REP 

15 

LAST 

526 

34,2262 

10 024 

0 


0276 

REP 

2 

LAST 

207 

34,2263 

1 2021 

1 


0277 





34,2264 

0 0006 

1 


0279 

REP 

5 

LAST 

530 

34,2265 

3 1266 

1 


0280 

RBP 

1 



34,2266 

1 2024 

1 


0281 





34,2267 

0 0006 

1 

EWREP 

0282 

REF 

2 

LAST 

526 

34,2270 

3 2275 

0 


0283 

REP 

1 



34,2271 

1 2025 

0 


0284 





34,2272 

T7766 

0 

BEPilS 

0284 





34,2273 

00011 

1 



USERO.S PACE NO. T Ee S3 


C3 

TIMBl 


AO 

2SECS 

DO READACCS 2 SECONDS AFTER LIPTOPP 

CCS 

A 

check to INSURE DT IS POSITIVE 

TCP 

♦3 

TI1« POSITIVE 

TCP 

♦2 

CANNOT GET HERE 

CA 

ZERO 

TII>B NEGATIVE - SET TO 1 

AO 

CNB 

RESTORE TIME - OR MAKE POSITIVE 

TC 

WAITLIST 


BRANKr 

AOO 


ZCADR 

beadaccs 


TC 

2PHSCHNa 


OCT 

00003 

TURN CPF GROUP 3 

OCT 

00025 

PHOIECT NORMLIZE AND READACCS 

TC 

POSTJUMP 

. 

CADR 

NORMLIzE 

DO NORMLIzE AND ENDOPJOB 

E8ANK= 

TEPHEM 


INHINT 

CCS 

PHASES 


TC 

ENDOPJCB 


CCS 

LIFTTEMP 


TCP 

+4 


TCP 

+3 


TCP 

+2 


TCP 

Pi 1+7 


CS 

TLIFTOFF 


EXTEND 

BzflF 

BTOREPll 


CCS 

TIMB2 

WIME2 NtJST BE NCN-ZERO AT LIPTOPFW: 

TCP 

RBPllA -5 

T2,Tl NOT YET ZERCPD, GO AND DO IT 

EXTEND 


T2,ti zbhced, set TT.IFTOFP 

DCA 

LIFTTEMP 


TCP 

HEPilA-2 


extend 

DCA 

HEP11S4 


TCP 

REPllA-l 


ZOCT 

77766 00011 
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0285 





34,2274 

77764 

1 

REPllSA 2OCT 77764 00013 

0285 





34,2275 

00013 

0 


02851 

REP 

1 



34,2276 

02451 

0 

PlUCIT GENADR PllCXJT 

0286 





34,2277 

71704 

1 

-ERIHHAT 2DEC* -7.292115138 

0286 





34,2300 

41735 

0 


0288 

!«P 

4 

LAST 

527 

Be, 1704 



EBANK: BODY3 

0289 

REP 

1 



34,2301 

02303 

0 

PllSCADR 2CADR VHHDOT 

0289 

REP 

1 



34,2302 

70066 

0 


0290 

REP 

5 

LAST 

531 

86,1704 



EBANK: BCDY3 


EARIH rate at 2(18) 


VI«X)r IS EXECUIH) EVERY 2 SECCNDS TO DISPLAY (J4 DSKY 
VI inertial velocity HAGNITUDS 
W)OT RATE OP CHANGE OP ALT ABO/E L PAD RADIUS 
H ALTITICE AflCVE L PAD RADIUS 


0299 

REP 

89 

lAST 

528 

34,2303 

0 6006 

1 

VrtOCJT TC 

INTPRET 


0300 





34,2304 

77624 

1 

CALL 


LOAD VMAGI, ALTI, 

0301 

REP 

1 



34,2305 

70436 

1 


Sll.l 

HDOT FOR DISPLAY 

0302 





34,2306 

77776 

1 

EXIT 



0303 

REF 

1 



34,2307 

3 2511 

0 

CAP 

V06N62 

DISPLAY IN Hi R2 R3 

0304 

REP 

116 

LAST 

527 

34,2310 

0 4555 

0 

TC 

bankcall 

VI H)OT H 

0305 

REF 

1 



34,2311 

20621 

0 

CADR 

REGOD SPR 

DISPLAY INTERFACE - IMMEDIATE RETURN 

0306 

REP 

117 

LAST 

531 

34,2312 

0 4555 

0 

TC 

bankcall 


0307 

REF 

1 



34,2313 

77132 

1 

CADR 

SERVExIT 

END CP PiiSERVE CYCLE 

0308 

REF 

1 



34,2314 

3 4701 

0 

atertask cap 

PRIOl 

ESTABLISH JOB TO DISPLAY ATT ERRORS 

0309 

REF 

20 

LAST 

510 

34,2315 

0 5042 

1 

TC 

PINDVAC 

CCMES HERB AT L.O. + .33 SEC 

0310 

REP 

6 

LAST 

531 

E6,1704 



HIANK= 

BODY3 


0311 

REF 

1 



34,2316 

02326 

1 

2CADH 

ATERJCB 


0311 

REF 

1 



34,2317 

70066 

0 




03111 

REP 

6 

LAST 

529 

34,2320 

4 1501 

0 

CS 

BCSFLAGS 

SET BIT3 FOB 

03112 

REP 

17 

LAST 

518 

34,2321 

7 4710 

1 

mask 

BIT3 

needler 

03113 

REP 

7 

LAST 

531 

34,2322 

27«501 

0 

ADS 

BCSFLAGS 

INITIALIzATICN pass 

03114 

REF 

20 

LAST 

527 

34,2323 

0 4633 

0 

TC 

ibnkcall 

AND GO 

03115 

REF 

1 



34,2324 

42404 

1 

CADR 

NEEDI.ER 

DO IT 

0312 

REF 

25 

LAST 

509 

34,2325 

0 5213 

1 

TC 

TASKOVEH 



THIS SECTICN PRCVIDES ATTITUDE ERROR DISPLAYS TO THE FDA I DURING SCNE 


CtMPUIE DESIRED PITCH W.R.T. LAUNCH SITE LOCAL VERTICAL. 

PITQI = -.0000469184028 + . 0013T571556«+.02315022B0^WT-.0205929365*TmT 
SCALED TO 32 REVOLUTIONS 

IP H, = TIME FRCM launch IN SEDCHDS, THEN T = 100(TL-10SEC)/( 2*4=14) 
•HERE TL GE 10 SEC 

TL LE 133 SEC . 


CCMPOTE DESIRED Rttl, WHERE ROIL EOUAI,S CajNTEH-CLOCKWISE ANGLE FROM 
LAtfJCHAZ TO -z(S/C) AS SEEN FROM X(S/C). 

ROLL = LAlNCHAZ-AzIMUTH-.S +SATRLRT4T IN REV 
SATRLRT = RATE OP ROIL IN REV/CBNTI-SEC 

T,IN CeiTI-SEC, IS DEFINED AS ABOVE, INCLUSIVE OP TIME RESTRICTIONS 
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A0328 

A0327 

A0328 

A0329 

A0330 

A0331 

A0332 

A0333 

A0334 

*0335 

*0338 

*0337 

*0338 

*0339 

*0340 

*0341 

*0342 

*0343 

*0344 

*0345 

*0346 

*0347 

*0348 

*0349 

*0350 

*0351 

*0352 

*0353 

*0354 


20’35 OCT. 28,1968 PANDORA .080 PAGE 532 
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FOR simplicity, IBT P = 24PI=WnCM 
R = 2*PI*BOLL 

ctwsmor the nLiMs?ora«TicN wtoix, tsmv, giving i»sired s/C Axes in 

TBIMS OP SM CGCEDIKATSS. LET THE HBSULTIMG ROWS EQUAL THE VECTORS XDC, 
YDCjAND 2PC. 


* < SINIPl 

Ta4V = (-SIM<R»*C08tP» 
<-CQ3(R)4C08fp) 


0 -COSIP) ) (XDC) 

-C03(B) -SIN(R)4SIN(P)) = (YDC) 

SIN(H) -COS(B)*SIN(P)) (ZDC) 


XDC,¥DC,ZDC are usa> as input TO CALCGW FOR THE EXTBACTICN OP THE 
OXER set OP ANGLES KHICH WILL BRING THE SI INTO THE DESIRED 
ORIESLTATICN. THIS EULER SET, CGC, KX), AND HOC, MAY BE IDENTIFIED 
AS THE DESIBai CCu AJffiLES. 

(XDC) (OOC) 

(YDC) ) CaiXGM ) (IGC) 

(2J)C) (MOO) 


DEFINE the vector DELTACDU. 

(OGC» (CDUX) 
DGLTACDu = (IGC) - (CDUY) 
(HOC) (CDuz) 


COMPUTE ATTITUDE ERRORS, A, WHERE A = TGSCMIELTACDU 


* (1 SIN(CDUZ) 

TOSC = (0 COS(CDUX)4COS(CDUZ) 

(0 -SIN(CDUX)4C0S(CDUZ> 


0 ) 
SIN(CDUX)) 
COS(CDUX)) 


THE GIMBAL angles 
TO spacecraft AXES 
CONVERSION MATRIX 




THE attitude BRRCHIS, A, ARE STORH) ONE HALF SINCHE PRECISION IN 
THE registers AK, AKI, AK2 AS INPUT TO NEEDLER, THE FDAI ATTITUDB 
ERROR DISPLAY ROUTINE. 


0355 

REP 

16 

LAST 

530 

34,2326 

30 024 

1 

ATERJOB 

CAE 

TI>«2 

check ip more than 

0356 





34,2327 

0 

0006 

1 


EXTB® 


164 SECONDS FROM L.O. 

035T 





34,2330 

6 

2332 

1 


Bp?®' 

♦2 


0358 

REP 

1 



34,2331 

1 

2424 

0 


TCP 

SATCLBAR 

YES - ClEAR ERROR CGNTER t EXIT 

0359 

REP 

10 

LAST 

255 

34,2332 

30 102 

1 


CAE 

FLAGJRD6 

CHECK FlAOWHDe 

0360 

REP 

e 

LAST 

255 

34,2333 

7 

4105 

0 


MASK 

CCVBOOOO 

bits 14 + 15 

0361 





34,2334 

0 

0006 

1 


EXTEND 



0362 

REP 

1 



34,2335 

1 

2337 

0 


BZP 

ATTOISP 

NO SATURN stick CN 

0363 

REF 

1 



34,2336 

0 

2420 

0 


IC 

atbrset 

Exit - saturn stick in use 

0364 

REP 

2 

LAST 

113 

34,2337 

4 

1702 

1 

atioisp 

CS 

RPSTABT 

PITCH/R0(J, start time 

0365 

REP 

11 

LAST 

530 

34,2340 

6 

0025 

0 


AD 

TI.'«1 
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03851 





34,2341 

0 oooe 

1 

EXTH® 



03652 

BEE 

1 



34,2342 

6 2504 

1 

B2fB» 

NOPOLY 

IP MINUS THai ATTITU® HOLD 

0380 

REP 

240 

LAST 

514 

34,2343 

54 154 

0 

TS 

MPAC 

MPAC = TIMSl - RPSIART 

0367 

REP 

2 

LAST 

113 

34,2344 

55«707 

1 

TS 

SPCLYARO 

SAVE POT USE IN ROLL CALOuLATICN 

0388 

REP 

2 

LAST 

113 

34,2345 

8 1703 

1 

AO 

POLYSTOP 

NBO PITCHO/EH TDSE IN CSECS 

0369 





34,2348 

0 0006 

1 

EXTB© 



0370 





34,2347 

6 2351 

1 

B2MP 

♦2 


0371 

REP 

1 



34,2350 

1 2416 

1 

TCP 

satout 

EXIT IP TI^el OT THAN tRPSWRT-POLYSTOP) 

0372 

REP 

3 

LAST 

112 

34,2351 

31«661 

1 

CAE 

POLYNIM 


0373 

REP 

60 

LAST 

509 

34,2352 

54 001 

1 

TS 

L 


0374 

REP 

1 



34,2353 

3 2510 

1 

CAP 

CCEFPOLY 

evaluate pitch POLYNCMIAL 

0375 

REP 

1 



34,2354 

0 7164 

0 

TC 

PCWHSEHS 

SCALED TO 32 REvOLUTICNS 


A03T8 

A0377 


THE PaJXWING PAD LCADSD COEFEICIBITS APB 
usa> TO CCMPUIB THE PITCH POLYNOHIAL 



A03TT1 








SUNDlac 

SI CCEPS - 



A0378 








POLYNUM 

PIVE 

POLYNCMIAL DBOTEE -i 

A 0379 








♦1 

2DEC 

-.469184028 E-4 Ao 

A0380 








♦3 

2Pec 

.137571556 E-2 Ai 

AO 381 








♦5 

2DEC 

.231502280 E-1 A2 

A0382 








♦7 

2DBC 

-.205929365 E-i A 3 

A0383 








♦9D 

2cec 

0 A 4 

AO 384 








♦llD 

2DEC 

0 As 

A0385 








♦I3D 

pDBC 

0 Ae 

A0386 








POLYLOC 

= 

POLYNUM +100 

0387 

REF 

115 

LAST 

530 

34,2355 

3 4714 

1 

CA 

2BRO 

BElurei WITH PITCH! 32REV) 

0388 

REF 

3 

LAST 

296 

34,2356 

54 163 

1 

TS 

MODE 

STOTED IN MPAC, MPAC +1 

0389 

REP 

70 

LAST 

531 

34,2357 

0 6006 

1 

TC 

intprbt 


0390 





34,2360 

54201 

0 

SETPO 

3 ^ 

32f PITCH! 32 BEV)) = PnCH!REV) 

0391 





34,2361 

00001 

0 


0 


0392 





34,2362 

20206 

1 


5 


0393 





34,2363 

77606 

1 

puai 


LET P!BAD) = 2=«>I*PnCH!RBV) 

0394 





34,2364 

77650 

1 

GOTO 



0395 

REF 

1 



34,2365 

76103 

1 


ATTDISPI 

ABairo ®tloc 


A0396 

A039T 

0398 

0399 

0400 


CCNSTROCT SM TO S/C MATRIX, TSW 


RBE 

REP 


3T,2000 

37,2103 


SEILOC PiiTWO 

bank 

COUNT 38/Pll 


38 IN Ca,., 34 IN DISK 


0401 

37,2103 

57546 

1 

ATIDISPI COS 

DCCMP 


0402 

37,2104 

14017 

1 

STODG 

140 

-.54COSCP 

0403 

37,2105 

77756 

0 

STM 



0404 

37,2106 

14013 

0 

STOX. 

lOD 

.5+SIMCP) 

0405 BSF 6 I^ST 471 

37,2107 

15332 

1 


zerovecs 
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0406 





3T,2110 

00015 0 

STORE 

12D 

0 

A040T 







bvaluatb roll = 

; LAUNCHAZ-AZIMum-.StSA'niLRTW 

0409 





37,2111 

41335 1 

SLCHO 

DMP 


0410 

REP 

3 

lAST 

533 

37,2112 

03310 0 


SPOLYARO 

Tn«l - HPSWBT ,CSECS B-14. 

0411 

REP 

4 

last 

529 

37,2113 

03301 0 


SATRLBT 


0412 





37,2114 

45231 0 

SL 

DSU 


0413 





37,2115 

20217 1 


14D 


0414 

REP 

12 

LAST 

529 

37,2116 

15330 0 


DPHAIJ' 


0415 





37,2117 

45215 0 

DAO 

DSU 

ASSUMING xOI) ALCKG LAUNCH AzIMUIH, 

0416 

REP 

8 

LAST 

529 

37,2120 

G2634 1 


LAUNCMAz 

LAUNCHAZ = ANGLE Psa4 NCSHH TO X( SM) . 

0417 

REP 

6 

LAST 

529 

37,2121 

02401 0 


AZIi+im 

AzIMim = -ANGLE FROM NORTH TO Z(S/C) 

0418 





37,2122 

77634 0 

RIB 


OeiEHMINE IF ROLLOUT 

0419 

REP 

1 



37,2123 

70473 0 


HLTST 

IS CCMPLEIED 

0421 





37,2124 

71406 0 

atidisph puai 

COS 

CCNTINUB CCMPUTING TS>V 

0422 





37,2125 

77606 1 

PUSH 


LET RIBAD) = 24PI*a<XL(REV) 

0423 





37,2126 

72405 0 

DMP 

3,1 


0424 





37,2127 

00017 1 


140 


0425 





37,2130 

14027 1 

STQDL 

220 

-.54COS(H)4COS(P) 

0426 





37,2131 

77676 0 

DCtMP 



0427 





37,2132 

00023 0 

STORE 

leo 

-.54C0S(H) 

0428 





37,2133 

72405 0 

DMP 

SLl 


0429 





37,2134 

00013 0 


lOD 


0430 





37,2135 

14033 1 

STODL 

260 

-.54CQS(R)*SIN(P) 

0431 





37,2136 

41556 1 

SIN 

PUSH 


0432 





37,2137 

00031 0 

STORE 

240 

.S+SINIR) 

0433 





37,2140 

72405 0 

DMP 

SLl 


0434 





37,2141 

00017 1 


140 


0435 





37,2142 

14021 1 

STOOL 

160 

-.5*SINCR)4COS(P) 

0436 





37,2143 

77676 0 

DCCMP 



0437 





37,2144 

72405 0 

DMP 

SLl 


0438 





37,2145 

00013 0 


lOO 


0439 





37,2146 

240 25 0 

STCVL 

200 

-.5*SIN(R)*SIN(P) 

0440 





37,2147 

00013 0 


lOD 


A0441 







PBCM TSW^ FIND THE HALF UNIT VECTORS XDC,yDC,2pC = INPUT TO CAIIXSTA 

0442 





37,2150 

77656 1 

UNIT 



0443 

REP 

3 

LAST 

93 

37,2151 

26714 1 

SKVL 

XDC 

XDC = .54lWIT<SINfP),0,-COS(P)) 

0444 





37,2152 

00021 1 


160 


0445 





37,2153 

77656 1 

UNIT 



0446 

REP 

3 

LAST 

93 

37,2154 

26722 1 

STOVL 

YDC 

VDC = .54uNIT<-SIN(R)4COS(P) ,-COSCR) , 

0447 





37,2155 

00027 1 


220 

-SIN(R)*SIN(P) 

0448 





37,2156 

77656 1 

UNIT 



0449 

REP 

3 

LAST 

93 

37,2157 

36730 0 

SICAIX, ZDC 

ZDC = .54UNm-COSfR)4COS<P) ,SrN(R) , 

0450 

REP 

2 

LAST 

444 

37,2160 

47140 1 


CALOGTA 

-COS(R)*SIN(P): 

A0451 







CALL CALCGlA TO CCMPUIE DESIRED 

S'! orientation ogc. igC.ano ycc 

A0452 








- 

_ 

A0453 







PINO DIFFERENCE VECTOR DBl.TAnX) = OCXI-nXDC 
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*04531 ansa herb if attiudb hold 


0454 





37,2161 

41575 0 

JRJPOLK4 VLQAD 

puai 

OOC IOC 

0455 

REF 

15 

LAST 

528 

37,2162 

02780 1 


OOC 

tSttNOB IOC TO MOC FOR CCWPATIBILITY 

0456 





37,2163 

45006 0 

PUSH 

CALL, 

MOC OOC 

045T 

REF 

2 

LAST 

497 

37,2164 

47432 1 


oxnHio 

WITH Y,Z,X ORE®R OP aXJSPOT 

0458 





37.2165 

47175 1 

VLCAD 

RW 

DPHI OOC-CJDuX ,PD 4 

0459 





37,2166 

00003 1 


2 

DELTftaxj = DTHBW = IGC-CDUY . 0 

0460 

REF 

3 

LAST 

407 

37,2167 

45547 0 


V1STO2S 

DPSI MOC-CDOZ , 2 

0461 

REF 

1 



37,2170 

27317 1 

STCVL 

BOOSTS4P 


0462 

REF 

7 

LAST 

533 

37,2171 

15332 1 


ffiROVECS 


0463 





37,2172 

24001 0 

STCVL 

0 


0464 

REF. 

5 

LAST 

447 

37,2173 

00767 1 


rauspoT 


0465 





37,2174 

47034 0 

RTH 

RIB 


0466 

REF 

4 

LAST 

535 

37,2175 

45547 0 


V1ST02S 


046T 

REP 

1 



37,2176 

70453 1 


DELSTOR 


0468 





37,2177 

14013 0 

STODL 

lOD 


0469 

REP 

1 



37,2200 

00741 0 


SINCDUZ 


0470 





37,2201 

72405 0 

DMP 

SLi 


0471 





37,2202 

00001 0 


0 


0472 





37,2203 

60415 1 

CAD 

sa2 

CHANGE SCALE OP AK TO 2REVS 

0473 





37,2204 

00005 1 


4 


0474 





37,2205 

77650 1 

goto 



0475 

REF 

1 



37,2206 

70366 0 


ATIDISP2 




0476 

REF 

2 

LAST 

526 

34,2000 



ffiTLOC 

PllCNB 

0477 





34,2366 



bank 


0478 

REF 

2 LAST 

526 

TO 533* 

244 244* 

COUNT 

34/Pll 

0479 





34,2366 

14021 

1 

AT1DISP2 STCDL 

16D 

0480 

REF 

1 



34,2367 

00747 

0 


COSCDUZ 

0481 





34,2370 

41405 

0 

DMP 

puai 

0482 





34,2371 

00001 

0 


0 

0483 





34,2372 

72405 

0 

DMP 

SLl 

0484 

REF 

1 



34,2373 

00751 

1 


COsCDUX 

0485 





34,2374 

41325 

0 

PCOL 

DMP 

0486 

REF 

1 



34,2375 

00743 

1 


SINCDUX 

0487 





34,2376 

00003 

1 


2 

0488 





34,2377 

72415 

1 

DAD 

SI4 

0489 





34,2400 

77628 

0 

SIADR 


0490 





34,2401 

63755 

0 

STCDL 

itd 

0491 





34,2402 

72405 

0 

DMP 

SLl 

0492 

REF 

2 

LAST 

535 

34,2403 

00743 

1 


SINCDUX 

0493- 





34,2404 

41325 

0 

PDDL 

DMP 

0494 

REF 

2 

LAST 

535 

34,2405 

00751 

1 


COSCDLK 

0495 





34,2406 

00003 

1 


2 

0496 





34,2407 

72425 

1 

DSU 

SLl 

0497 





34,2410 

77626 

0 

SIADR 


0498 





34,2411 

77754 

1 

STORE 

IBD 

0499 





34,2412 

77751 

1 

TIXAD 



18D, .SfDPHI + DTHETA*SIN(CDUZ)) 


17 D, .5(dtheta«:os(Cdu)c)«:os(Cixiz) 

+DPSI*SIN(CDU)0 ) 


18D, .Sf-OTHBTA+SINtrDlDCl^COSirtXlZ) 

+DPSI4C0S((TX)X) ) 
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0500 

BEF 


LAST 


34,2413 

00021 1 



16D 


0501 

9 

244 

34,2414 

03077 1 


STORE 

ak 

STORE ATTITUDE ERRORS IN AK,AK1,AK2 

0502 





34,2415 

77778 1 


EXIT 


AoS03 







DISPLAY attitude EHHOBS CN PDA I 

VIA NEEDLER 

0504 

REP 

lie 

LAST 

531 

34,2416 

0 4555 0 

SATOOT 

TC 

BANKCALL 


050S 

REP 

2 

LAST 

531 

34,241T 

42404 1 


CADR 

NEEDLER 


0506 

lep 

2 

LAST 

348 

34,2420 

3 4113 0 

aterset 

CAP 

OCT31 

delay- .25 SEC 

050T 

REP 

119 

LAST 

536 

34,2421 

0 4555 0 


TC 

BANKCALL 

ExECUTICN + DELAY =.56SEC APPRQC 

0508 

REP 

6 

LAST 

511 

34 , 2422 

01732 0 


CADR 

DELAYJCB 

0509 

REP 

2 

LAST 

531 

34,2423 

0 2326 1 


TC 

ATERJCB 

END OP ATT error DISPLAY CYCLE 

0510 

REP 

31 

l^ST 

474 

34,2424 

4 4705 0 

SATCLEAH Cs 

BIT8 


0511 





34,2425 

0 0006 1 


BXTB® 


0512 

REP 

24 

LAST 

380 

34,2428 

03 012 1 


WAND 

CHAN12 

Clear ih; error counter 

0513 

REP 

26 

LAST 

529 

34,2427 

0 5301 0 


TC 

PHASCHNO 

TURN OFF PROIECTICN 

0514 

REP 




34,2430 

00004 0 


OCT 

00004 

for attihi® error display 

05141 

116 

LAST 

533 

34,2431 

3 4714 1 


CAP 

ZERO 


05142 

REP 

10 

LAST 

536 

34,2432 

55«476 1 


TS 

ak 

zero out 

05143 

REP 

1 



34,2433 

55«477 0 


TS 

AKI 

aks for 

05144 

REP 

1 



34,2434 

55«500 1 


TS 

AK2 

downlink 

0515 

REP 

65 

LAST 

530 

34,2435 

0 5112 0 


TC 

EOOPJOB 


0516 





34,2436 

51575 1 

Sll.l 

VLOAD 

AByAL 


051T 

REP 

7 

LAST 

510 

34,2437 

01177 1 



VN 


0516 

REP 

5 

LAST 

276 

34,2440 

27723 1 


STOVL 

VMAGI 

VI scaled 2(7) IN METBRS/CSEC 

0519 

REP 

7 

LAST 

510 

34,2441 

01171 1 




0520 





34,2442 

45246 0 


AByAL 

DSU 


0521 

REP 

4 

LAST 

510 

34,2443 

05311 1 



RPAD 


0522 

HEP 

3 

LAST 

275 

34,2444 

27735 0 


STOYL 

ALTI 

H SCALED 2(29) IN METERS 

0523 

REP 

8 

LAST 

536 

34,2445 

01171 1 



IW 

0524 





34,2446 

50256 0 


IWIT 

DOT 


0525 

HEP 

8 

LAST 

536 

34,2447 

01177 1 



VN 


0526 

REF 




34,2450 

77752 1 


a,i 


' 

052T 

2 

LAST 

275 

34,2451 

03737 1 


STORE 

HDOT 

HDOT SCALED 2(7) IN f«TERS/CSBC 

0528 





34,2452 

77616 0 


RYO 


0529 

REP 

2 

LAST 

535 

34,2453 

3 1716 0 

delstor 

CA 

BOOSTE'IP 


0530 

REF 




34,2454 

0 0006 1 


EXTEND 


STORE DELTACDU INTO PDL 0,2,4 

0531 

241 

LAST 

533 

34,2455 

20 154 0 


MSU 

MPAC 


0532 

REP 

6 

LAST 

501 

34,2456 

50 120 1 


INDEX 

PIXIXC 


0533 





34,2457 

54 000 0 


TS 

0 


0534 

REF 

3 

LAST 

536 

34,2460 

3 1717 1 


CA 

BOOSTPNP +1 


0535 





34,2461 

0 0006 1 


EXTEND 



0536 

REF 

242 

LAST 

536 

34,2462 

20 155 1 


MSU 

MPAC +1 


0537 

REP 

7 

LAST 

536 

34,2463 

50 120 1 


INDEX 

FIXLOC 


0538 





34,2464 

54 002 1 


TS 

2 


0539 

REF 

4 

LAST 

536 

34,2465 

3 1720 0 


CA 

BOOSTEIP +2 


0540 





34,2466 

0 0006 1 


EXTEND 



0541 

REF 243 

LAST 

536 

34,2467 

20 156 1 


MSU 

MPAC t2 
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0542 

HEP 

6 

LAST 

536 

34,2470 

SO 120 

1 


INDEX 

PIXLOC 


0543 





34,2471 

54 004 

1 


TS 

4 


0544 

REP 

2 

LAST 

280 

34,2472 

1 6030 

0 


TCP 

DANZIG 


0545 

REP 

244 

LAST 

536 

34,2473 

3 0154 

1 

RLTST 

CA 

MPAC 

DETERMINE IF ROLLCXIT 

05451 





34,2474 

0 0006 

1 


EXTBTO 


IS (XMPLBIED 

05452 

REP 

5 

LAST 

534 

34,2475 

T 1701 

1 


HP 

SATSLRT ♦! 


05453 





34,2476 

0 0006 

1 


EXTEND 



05454 

HH' 

3 

LAST 

537 

34,2477 

6 6030 

1 


BZMP 

DANZIG 

unlike signs still rolling 

0546 





34,2500 

0 0006 

1 


EXTEND 


ROLLOUT CCMPLBTH) 

05461 

REP 

1 



34,2501 

3 3S61 

0 


DCA 

t«>YTCTL +2 

zero OUT ROLL CXNTRIBUTION 

05462 

REP 

245 

LAST 

537 

34,2502 

52 155 

1 


DXCH 

MPAC 


05463 

REP- 

4 

LAST 

537 

34,2503 

0 6030 

1 


TC 

DANZIG 


05464 

REP 

T1 

LAST 

533 

34,2504 

0 6006 

1 

NOPOLY 

TC 

INTPBET 

COMBS HERE IF 

05465 





34,2505 

52001 

1 


SETTO 

GOTO 

ATTITIBE HOLD 

05466 





34,2506 

00001 

0 



0 


0546T 

REP 

1 



34,2507 

76161 

0 



NOPOLYM 


054T 

RS? 

1 



34,2510 

01673 

1 

CCEPPCLY ADRES 

PCLYLCC 


0548 





34,2511 

01476 

0 

V06N62 

VN 

0662 


R05S2 

SATURN takeover FUNCTICN 







R0553 












R0554 

PROGRAM DESCRIPTICN 









E6 S3 


B0555 hod NU^BBB 1 

R05S6 hod by BLIASSEN 


R055T PinCTIONAL DESCRIPTICN 



R0S58 

R0SS9 

Rosso 

ROSSI 

R05S2 

R0SS3 

R0584 

R0565 


DURING THE COASTING PHASE OF SIVB ATTACHED, THE 
ASTBCNAur M4Y REQUEST SATURN TAKECVBH THRCUOI 
E)aE»IM» VERB 46 (BITS 13,14 OP DAPOATRl SET ). 
THE CMC REGARDS WO COMANDS AS BCDY-AXES RATE 
OCM4ANDS AND IT TRANSyllTS THESE TO SATURN AS DC 
VOLTAGES. THE VALUE OP THE CONSTANT RATE CCM'iAND 
IS 0.5 DEO/SEC. AN ABSENCE OF RHC ACTIVITY RE- 
SULTS IN A ZERO RATE CCM4AND. 


R0566 THE PQAI ERROR NEEDLES WILL INDICATE THE VALUE 

R05S7 OP THE RATE (XK4AND. 


R0568 CALLING ffiOUENCE 


R0569 DAPPIO *90 TC POSTJUMP 

R05T0 CADB SATSTKON 

R05T1 Sl«lOuriNES CALLED 

R05TZ SNDeScT 

B05T3 IBNKCALL 

R05T4 STICKCHC 
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L Pll 

ROSTS NEEDLER 

HOSTS TSRUPT 

ROSTT RBSIKS. 

hosts astronaut REaUESTS 

hosts BITRy - VERB 48 BTTER 

HOSSO fCCNDITICN - BITS 13, 14 OP OAPOATRl SET) 

H0S81 exit - VERB 48 ENTER (FTJISH V00N48) 

•*0582 verb 21 BHER AxXXX ENTER KHBRE A=o OR i 

H0S83 verb 34 BITER 

H0S84 VERB 4S BITER 

R0S8S NORMAL EXIT MODE 

MS88 VEI8I 40 biter (SEE ASTRONAUT ABOVE) 

R0S8T alarm or abort EXIT >xriEs 
R0588 NONE 

R0589 OUTPUT 

H0S90 SATURN RATES IN CDuxCtO, CDUYOO, (DuzCS® 

ROS91 erasable initialization 

H0S92 OAPOATRl (BITS 13,14 KJST BE SET) 

R0S93 DBIHIS 

H0S94 CENTRALS 

H0S9S CIXJXCMD, CDU«M), CDUzCMD 


0599 REF 1 

0600 

06001 REF 1 

06002 

06003 REF 5 

06004 REF 12 
0601 REF 3 

06011 REP 11 

06012 REF 2 

06013 REP 12 
060132 ref 21 
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43,3211 



bank 

43 

248 

43,2000 



SBTLOC EXTVERBS 


43,3211 



bank 






COUNT 

23/SnKE 


43,3211 

0 0006 

1 

satsikcn Extend 



43,3212 

3 3227 

0 

DCA 

2REDOSAT 


43,3213 

0 0004 

0 

INHINT 


255 

43,3214 

53«313 

0 

DXCH 

TSI-OC 

424 

43,3215 

3 4672 

0 

CAP 

POSMAx 

186 

43,3216 

54 030 

0 

TS 

TIMES 

532 

43,3217 

4 0102 

0 

CS 

FtAOKRDg 

130 

43,3220 

7 4105 

0 

mask 

RBL-mBii 

538 

43,3221 

26 102 

0 

ADS 

FlACWRDe 

531 

43,3222 

0 4633 

0 

TC 

irnkcau. 


TiniN CN BITS 15,14 OF 
FLAC5WRD6 

SATSTICk CCNTRCK, OP T5 
zero jet CHAN.NEI.S in 14 MS AND THEN 
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M0134 HEP 1 
0S014 

■6015 RH' 27 LAST 281 


•60151 US' 
•6016 RBE 
•6016 

•60162 
•60164 rsp 
•60168 


LAST 

LAST 


•602 
•6021 
•6022 REP 
•6023 REP 
•6024 REP 
06025 REP 
•603 REP 
•604 R»' 

■605 SBF 
•606 
•607 
•606 

•609 REP 
•610 REP 
•611 REP 
•612 REP 
•613 RIP 


REP 25 LAST 536 


6 LAST 538 
1 

4 LAST 538 
25 LAST 228 


A0614 

•615 

•616 

•61T 

0616 

•619 

•620 

•621 

•622 

•623 

•624 

0625 

•626 

•627 

•626 

•629 

0630 


REP 4 LAST 539 
REP 4 LAST 539 


REP 

REP 

REP 


REP 

REP 


LAST 539 
LAST 539 
LAST 539 
LAST 539 


2 last 384 
2 LAST 539 
23 LAST 539 
1 


REP 2 LAST 108 
REP 1 

RH' 11 LAST 536 


43.3223 42616 0 

43.3224 0 0003 1 

43.3225 0 2121 1 


531 

188 


HEP 3 LAST 219 


3 LAST 219 

8 LAST 531 
18 LAST 531- 

9 LAST 539 
22 LAST 538 

3 LAST 536 
18 LAST 251 


E8,1704 

43.3226 

43.3227 

32,2017 

23,2000 

23,2765 

23.2765 

23.2766 

23.2767 

23.2770 

23.2771 

23.2772 

23.2773 

23.2774 

23.2775 

23.2776 

23.2777 
23,3000 
23i3001 

23.3002 

23.3003 

23.3004 

23.3005 


02765 1 
46106 1 


22 016 0 
0 0006 1 
22 012 1 

4 1501 0 
7 4710 1 
27«501 0 

0 4633 
42404 

3 4702 
0 0006 

05 012 
0 0006 
3 3046 
53«313 
3 3044 1 
54 030 0 

1 5222 1 


23.3006 

23.3007 

23.3010 

23.3011 

23.3012 

23.3013 

23.3014 

23.3015 

23.3016 

23.3017 

23.3020 

23.3021 

23.3022 


22 016 0 
0 0006 1 
22 012 1 

3 3045 0 
55«312 1 
3 3044 1 
54 030 0 
3. 3043 
0 0006 

06 031 

7 3043 
0 4633 

43114 


23.3023 51«656 0 

23.3024 3 3037 0 

23.3025 55«476 1 


CADB TEHOJET 

RELINT 

7C OOPIN 

EBANKi BODYs 
2HaX)SAT 2CADR RECXJSAT 


bank 32 

SETLOC PiiPOUH 

bank 

redosat lxch bankrupt 

Ext&id 
(KC« OajPT 

cs 

mask 

ADS 
1C 


20’35 C»T. 28,1988 PANDORA .080 PAGE 539 
USERxS page no. 16 B 6 S4 
LEAVE THE TB CLOCK DISABLED 

Exit thus because we case via vab 


RCSPLAQS 

bits 

HCSPIAOS 
IIWkCAIX 
CADH NEEDLEH 
CAP BIT 9 
Extend 

WOH CHAN12 
EXIB® 

CCA 2SATS1Ck 

DXCH 1 SLOC 
CAP lOOMSTS 
TS TIME 5 

TCP BESITE 


also CCMES herb POR RESTARTS 


Tvnw CN BIT3’ OP RCSFLAGIX 
POR 

NEEDLEH INITIALI2 ATICN 
disable ihj Err conters etc 

SIVfl 

takeoyeh 

ENABLE 

SET UP T5 CYCI£ 


IN 100 MSECS 

B® OP SATURN STICK INITIALIZATION 


1HIS ffiCTiCN IS Executed every loo msecs 

SATSTICK LXQI bankrupt 
EXKND 
OCCM QRUPT 


2 SATSTCK 

15LOC 

100MS15 

TIMES 

STiKflITS 


CAP 
TS 
CAP 
TS 
CAP 

Extend 

recOR CMAN31 
mask stikbits 
tc ibnkcau, 
CADR STICKCHK 

INDEX RMANNDK 
CA SATRATE 

TS AK 


ffiT UP RJPT 
LO ORDER LOC SET 
100 MSECS 


OIECk if man ROT BITS SAME 

set rate INDICES 
for pitch yaw and roli. 


set SATURN RATES 


Rai, 
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u 

pii 





0ft31 

REP 

2 

LAST 

lOB 

23,3026 

0632 

REP 

2 

LAST 

539 . 

23,3027 

0633 

REP 

2 

LAST 

536 

23,3030 

0634 

REP 

2 

LAST 

112 

23,3031 

0635 

REP 

3 

LAST 

540 

23,3032 

0636 

US' 

2 

LAST 

536 

23,3033 

063T 

REP 

24 

LAST 

539 

23,3034 

0638 

REP 

4 

LAST 

539 

23,3035 

0639 

REP 

26 

LAST 

539 

23,3038 

0640 





23,3037 

0641 





23,3040 

0642 





23,3041 

0643 





23,3042 

0644 





23,3043 

0645 





23,3044 

0646 

HEP 

8 

LAST 

539 

E6,1704 

064T 

REP 

1 



23,3045 

064T 

REP 

1 



23,3046 


51«857 

1 


DfflBX 

PKANSDX 

3 3037 

0 


CA 

satrate 

55«477 

0 


T3 

AsCl 

51«660 

0 


DOEjf 

YKANSDJC 

3 3037 

0 


CA 

SATRATE 

55«*500 

1 


T3 

AK2 

0 4633 

0 


TC 

ibnkcall 

42404 

1 


CADR 

NSEDLER 

1 5222 

1 


TCP 

ISSU>(3 

00000 

1 

satrate 

DEC 

0 

00476 

1 


DEC 

*318 

77301 

0 


DEC 

-318 

00000 

1 


DEC 

0 

00077 

1 

stikbits 

OCT 

OOOTT 

37766 

1 

ioomsts 

DEC 

16374 




BEMNK= 

BODY3 

03006 

1 

2SATSTCK 2CADH 

SATSTIC)C 

46106 

1 
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PITCH 


TAN 

POH SATURN INTERFACE Al® FDAI DISPLAY 

B© OP SATUIW STIQc CCKIEOL 

IN DBrerr - zero bate 

POS RATE .5D/S R, .30/3 P AND Y 

NEO rate ditto 

POS NEO BITS CM ASSIT® IN DETENT 



